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L'équipe rédactionnelle de CPC s’étoffe dans le but de mieux servir les lecteurs ; le courrier est désor- 
mais traité plus rapidement. Pour les questions urgentes, il y a toujours le téléphone du mercredi et du 
vendredi matin, mais. n’abusez pas ! De plus, vous disposez maintenant d'un serveur, accessible par 
le 36.15 code MHZ, sur lequel vous pouvez poser des questions, parcourir les petites annonces, et éven- 
tuellement consulter la rubrique ‘’Calamités’’ où nous déposerons les modifications à apporter à un pro- 


gramme en cas d'incident. 


En restant fidèle à CPC, vous garderez le contact avec une équipe de passionnés toujours au service 


de ses lecteurs. 


A toutes et à tous, meilleurs vœux de bonne et heureuse année pour 1987. 
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Un faux compatible est un poison! 
voici l'antidote: 


Ton abondance, 

Ton TURBO, 

Ton DOS +, ton GEM, 
Ton TURBO-PASCAL, 
Ton PRIX 


.… JE CRAQUE! 
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TRAN - 53, impasse Blériot, 83130 LA GARDE 
Tél. 94.21.19.68 


NOUVEAUTÉ 


DES COMPATIBLES PC À MOINS 
DE 4.000F * C’EST UNE RÉALITÉ 


avec la nouvelle gamme d'ordinateurs complets 


JASMIN TURBO HQ de T.R.A.N. 


Jasmin Turbo 
en grande surface 


J'ai été agréablement surpris de trou- 
ver des « JASMIN TURBO » dans une 
grande surface. Avec son look « AT » et 
sa clé « anti-reset », il fait vraiment pro- 
fessionnel. Mais que fait-il dans un hyper- 
marché, ce compatible IBM PC/XT ? 
Quand j'ai vu le prix, j'ai compris ! Il com- 
mence à 3.954,47 F Hors Taxes pour 
256 K de mémoire vive (RAM). Mais c'est 
le prix d'un bon micro-ordinateur fami- 
lial ! C'est difficile de résister et, bien sûr, 
je me suis même laissé tenter par un 
modèle supérieur à deux lecteurs de dis- 
quettes et 640 K RAM à 6.224,29 F HT. 
Surtout, je connais bien la société fran- 
çaise T.R.A.N. à travers sa famille de lec- 
teurs JASMIN, bien appréciés des ORI- 
CIENS et des AMSTRADIENS. 


De bonnes surprises 


6.224 F, c'est déjà un très bon prix pour 
un compatible PC classique de même 
capacité, mais quand j'enlève l'embal- 
lage, quelle découverte ! Le langage 
structuré le plus vendu au monde, le 
TURBO PASCAL de Borland avec son 
manuel, les systèmes d'exploitation DOS 
PLUS et GEM de DR. avec le guide 
et les licences officielles. L'ensemble de 
ces logiciels coûte à lui seul plus de 
2.000 F. Encore une autre découverte : 
une souris de haute précision dont le prix 
est d'au moins 1.000 F. Surtout, l'unité 
centrale contient déjà : 

— la carte-mère équipée de 640 K de 
RAM, du microprocesseur 8088-2, d'un 
emplacement prévu pour le rajout du co- 
processeur arithmétique 8087 et de 8 
ports d'extension à connecteurs longs ; 
— la carte 16 couleurs et graphique 
appelée aussi la carte CGA avec une sor- 
tie vidéo composite couleur, une sortie 
vidéo N. et B., une sortie RVBI, une inter- 
face crayon optique ; 

— la carte « MULTI 1/O » comprend deux 
ports série dont un équipé, une interface 
imprimante parallèle Centronic, une en- 
trée manette de jeu, une horloge/calen- 
drier permanent sauvegardée par bat- 
terie, le contrôleur pour deux lecteurs de 
disquette. 


Etil reste encore 6 ports d'extension dis- 
ponibles. Sa généreuse alimentation à 
découpage de 150 W ventilée réside 
dans l'unité centrale et non dans le moni- 
teur, ce qui permet une évolution sans 
soucis de la configuration du système, 
par exemple changer de moniteur sui- 
vant ses besoins. 


La double vitesse, clé 
de la vraie compatibilité 


On connaît bien les problèmes que 
posent les ordinateurs qui ne fonction- 
nent qu'en 8 MHZ avec des logiciels 
écrits pour du 4,77 MHZ, vitesse de l'IBM 
PC. Or, JASMIN PC est un TURBO à 
double vitesse 8MHZ et 4,77 MHZ com- 
mutable au clavier. C'est indispensable 
pour une vraie compatibilité. 

Mis en garde ces derniers temps de la 
mauvaise compatibilité de certains clô- 
nes, j'ai tout de suite testé avec « Com- 
patest » et MS-DOS. Le résultat m'a plus 


que rassuré : 98 % en compatibilité pon- 
dérée et 3° niveau de compatibilité. Et, 
jusqu'à ce jour, je n'ai pas encore trouvé 
de logiciel pour IBM PC qui ne fonctionne 
pas sur le JASMIN TURBO. 


Systèmes d’exploitation 


J'ai apprécié le choix du système 
d'exploitation DOS PLUS de Digital 
Research Inc., pour sa double compa- 
tibilité avec le système MS.DOS 2-11 et 
CP/M 86. Vive les transferts de fichiers 
entre les deux standards. 

Le système d'exploitation d'environ- 
nement graphique G.E.M. (Graphic 
Environment Manager) de DRI est livré 
avec, ce qui permet à JASMIN TURBO 
d'utiliser toute application écrite sous 
GEM, disponible sur le marché. Par 
exemple, le GEM-DESKTOP (pour 
BUREAU) permet d'utiliser le JASMIN 
TURBO avec des Icônes comme un 
Macintosh. 

La convivialité avant tout. 


Gamme JASMIN TURBO HaQ : 


HQ pour Haute Qualité. Chaque modèle est équipé d'office d'une carte TURBO, des 
cartes « CGA » et « Multi 1/O », du clavier AZERTY de bonne qualité avec indicateurs 
lumineux et d'un lecteur de disquettes 5°1/4. Chacun est accompagné de DOS-PLUS, 


GEM et TURBO/PASCAL. 


HQ CLUB: 256 K RAM extensible à 640 K - 
alimentation allégée - DOS PLUS - 


TURBO PASCAL - 1 lecteur 5''1/4 


640 K RAM - Souris - DOS PLUS - 
GEM - TURBO PASCAL - 
Alimentation 150 W - 2 lecteurs 51/4 


640 K RAM - Souris - DOS PLUS - 


HQ 2 


HQ 20 


3.954,47 F HT 


6.224,29 F HT 


GEM - TURBO PASCAL - Alimentation 150 W - 


1 lecteur 51/4 - 1 disque DUR 20 MB 


9.915,69 F HT 


Le moniteur monochrome 12" haute résolution est proposé à 758,85 F HT. Le moni- 
teur couleur 14” haute définition : 2.942,66 F HT. 


Où trouver les JASMIN TURBO ? 


Chez VCB2-GARONOR Tél. 48.67.66.01 ; D.F.I. PARIS Tél. 42.88.14.97 ; D.F.I. PARIS 
Centre démo, 66 rue David-d'Angers (1%) ;: MICRO-CLUB BOBIGNY Tél. 48.31.69.33 : 
VISMO PARIS (11°) Tél. 43.38.60.00 ; MAXITRONIC MARSEILLE Tél. 91.34.49.79 : 
TRILOGIC MARSEILLE Tél. 91.08.05.49 ; SOMECII MARTIGUES Tél. 42.81.07.38 ; 
JCR LYON Tél. 78.61.16.39 ; FRANCE DISQUETTE LYON Tél. 78.01.79.63 ; ASC 
RENNES Tél. 99 00 9721 ; MICRO-STORE RENNES Tél. 99.79.36.52 ; MICRO DIF- 
FUSION TOULOUSE Tél. 61.22.81.17 ; SCR ORANGE Tél. 90.51.81.88 ; MICRO 
INFO CLERMONT-FERRAND Tél. 73.91.09.16 ; MICR'OCCASE MONTPELLIER 
Tél. 67.72.98.44 ; CTI Reims Tél. 26.40.39.31 ; dans les points de vente JASMIN et 
aussi directement chez T.R.A.N. 53, impasse Blériot, 83130 LA GARDE - Tél. 94.21.19.68. 


IBM PC/XT sont des Marques Déposées de International Business Machine Corporation. DOS PLUS - GEM sont des Marques Déposées de DIGITAL RESEARCH INCORPORATION 
AMSTRAD-PC est une Marque Déposée d'AMSTRAD. TURBO-PASCAL est une Marque Déposée de BORLAND INTERNATIONAL. JASMIN-TURBO est une Marque Déposée de TR AN 
La Société TR AN. se réserve le droit de modifier toute spécification sans préavis : 
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MULTIFACE II : Copies de sauvegarde de tous vos programmes sur disquettes ou 
sur K7 575F 


FILTRES D'ECRAN : Suppriment la brillance et permettent l'utilisation de votre ordi- 
Nate Sans fatiQUe nn easerenes Mono CPC : 160F 

Couleur CPC : 190F 

Mono PCW : 220F 


Les softs d'AR NOR, en EPROM ou sur disquette : 


MAXAM : Le meilleur assembleur/moniteur éditeur.Disquette : 240F 
EPROMSE RER Aer 360F 

PROTEXT : traitement de texte ultra performant CPC et PCW (disquette). 
DISQUETTE een dede de asvne vane age nentonsane : Pna O Ua nee PE nues E ee PAR 240F 
EPROME ne Ten eee net Rata ec 2 0 RL Rd ane o 29 Len NES done pan 360F 


PHASOR ONE : D'une très 
grande sensibilité, convient 
aux droitiers comme aux gau- 
chers, un très long câble per- 
met une totale liberté ! Encore 
un atout : sa solidité, voici le 
PHASOR ONE. Prix 125F 


REVENDEURS, CONTACTEZ-NOUS ! 


BON DE COMMANDE 
à adresser à MICRO FAIR, 255, bd Voltaire - 75011 PARIS 
Tél : (1) 43.72.30.78 


MANXANRE es ser ar aresstss tssteasee d/E 240F/360F Filtre monochrome CPC mrrrenenessenenennnenennense 160F 
PROTEXT 52 andere detniesssuioranesteces d/E 240F/360F titre couleur CPC: nec heirerrassreueteess 190F 
TOP anses tn ed onse nine E270F Filtre monochrome PCW ….mrrrnnes 220F 
ROMBOM ET te ent adu ananas tes ns epc nent Sa nan en emr 425F MUETPFAGCEME ES ES TR se ccgni ar sneutinnslesens 575F 
GUIDE PAPIER PCW ss inesonsconcnncenomcnesansonteneaneune 100F 1 fx | LA FC] RARE RSS ES RER PRESS SP APE 80F 
NOM ENT NN RME ere (AT LU EN PERS RP ASE LP ER CS ce LE AA RSS ARS SE + AE MR D 
PE TER T MR SOESE EE ER RE AS D a RE ORNE ED ER CE EN Pr NE 


Joindre un chèque du montant de votre commande + 10 F de port par produit. 
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d’une expédition à bord d’un sous-marin U 79. 
Vous êtes ASPIRANT embarqué avec un équipage de 35 
hommes et vous pourrez devenir AMIRAL. Pour celà, il LOGICIEL DU MOIS SUR AMSTAR DE NOVEMBRE 
vous faudra manœuvrer à la perfection car dans ce jeu, LA PRESSE UNANIME: 
toutes les phases du pilotage d’un sous-marin sont à 
respecter. C'est certainement la meilleure réalisation du genre 
Vous serez le maitre des combats assisté par les sur amstrad... 
instruments de bord (sonar, radio, radar). (CPC Novembre 86) 
Vous aurez à détruire la flotte ennemie sur differentes 
cartes marines. Les écrans, en m rès colorès et ont 
Le ‘hit’ des logiciels de fin d'année à 
absolument ! 


Cette simulation est exeptionnelle. Jamais avant aujourd'h 
je n'ai vu un tel souci de détail et de finition... 
(AMSTAR Novembre 86) 


RAD disquette 3”” T4 …C'est une simulation de sous-marin. Une bonne même... 
THOMSON Les mots me manquent pour vous décrire ce jeu... 
M05/M06/T07.70/T08/T09/T09 + (HEBDOGICIEL Octobre 86) 


Disquettes 3’’1/2, 5’’1/4 ; = 
Cassette 3 C'est en résumé une simulation réussie ou l'intérêt 


reste élevè très longtemps... 
(TEOPHILE) 
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les aliments que vous rencontrez 
au fur et à mesure de vos 
recherches. 

Jeu d'arcade agréable, vous devez 
en plus trouver des indices pour 
aller jusqu'au bout du jeu, ce qui 
apporte un intérêt supplémentaire. 


S PYRAMIDES 
D'ATL LANTYS 
MICROIDS 
Arcade/Aventure 


A bord de votre petit sous-marin, 
vous êtes à la recherche de la 
Cité Perdue. Pour cela, vous devez 
effectuer vos investigations au 
large des Açores. Après avoir 
choisi votre emplacement sur la 
carte, il ne vous reste plus qu'à 
plonger et à essayer de suivre le 
cachalot dans les eaux très 
profondes, car il vous indiquera la 
bonne voie. 

Le cristal souterrain, quant à lui, 
activera l'ancien réseau que vous 
devez emprunter ; et si, par 
hasard, vous parvenez à accorder 
les trois pierres, alors vous aurez 
la chance de vous voir révéler la 
cité. 

Vous risquez d'errer longtemps 
dans les noires profondeurs et 
lorsqu'après de nombreuses 
“fouilles”, vous découvrirez enfin 


ces grottes sous-marines très 
colorées, vous aurez alors votre 
récompense. 


LES TEN PLIERS 
D'ORVEN 
LORICIELS 

Jeu de rôle/Aventure 


Le temple d'Orven est le lieu de 
départ de l'équipe envoyée par le 
grand prêtre afin de combattre des 
adversaires de plus en plus 
féroces. 

Les templiers sont envoyés dans 
des domaines aussi différents les 
uns que les autres : un donjon, une 
citadelle, des cavernes pour 


ensuite terminer par un 


affrontement avec les “gardiens du 


Savoir”. 

L'aventure commence dans une 
auberge afin de pouvoir constituer 
une équipe avant de partir en 
expédition. Le temple sert à 
concrétiser l'évolution de chaque 
personnage en fonction de 
l'expérience acquise ; il permet 
aussi d'obtenir des indications sur 
la progression du jeu grâce au 
grand prêtre. 

Seule la pratique du jeu permettra 
de découvrir peu à peu toutes les 
possibilités de cette fantastique 
aventure, présentée avec des 
fenêtres graphiques. Un détail : il 
est dangereux de perdre une 
équipe car il est possible de 
retrouver les personnages qui la 
constituaient comme adversaires 
dans une prochaine partie ! 


BOB WINNER 
LORICIELS 
Aventure 


Nous sommes en 1934 et c'est le 
début d'une grande aventure que 
nous pouvons vivre en compagnie 
de Bob Winner. 

Allant par monts et par vaux, il 
s'expose à toutes sortes de 
dangers (marais, sables mouvants, 
éboulements), se fait attaquer par 
d'être un aventurier, il doit 
également maîtriser parfaitement la 
“’savate”, la boxe et le tir s'il veut 
réussir à progresser. 

Mais attention, bien que la force, 
l'agilité et la rapidité soient de 
mises pour atteindre son but, Bob 
Winner doit également avoir une 
bonne dose d'intelligence et 
d'astuce !.. 

Ce jeu est tout simplement génial 
aussi bien au niveau de la musique 
que des graphismes créant une 
atmosphère “rétro” qui est 
vraiment magnifique. De plus, la 
progression latérale de Bob Winner 
fait ‘avancer’ les décors comme 
s'il y avait un défilement de 
bande... 


TERA 

LORICIELS 

Jeu de rôle pour PC 1512 et 
Compatibles 


Les jeux en français sur PC 1512 
et Compatibles sont si rares que 
toute initiative dans ce domaine de 
la part d'un éditeur mérite d'être 
saluée. Tera de Loriciels est un jeu 
de rôle où l'ordinateur tient lieu de 
maître du jeu. 


Après avoir chargé votre DOS 
favori, sans oublier le fichier 
Graftabl qui vous permettra 
d'obtenir des caractères accentués, 
il suffit de taper Tera et la page 
titre s'affiche en trois couleurs. 
Surprenants les arbres en bleu, 
mais il s’agit d'une limitation bien 
connue de la carte couleur 
standard du PC. Il faudra faire 
avec. 


Première chose à faire, créer son 
personnage qui tiendra lieu de 
héros de l'aventure. Vous lui 
donnez un prénom, décidez s'il 
s'agit d'un homme ou d'une 
femme, puis commence une des 
opérations primordiales pour la 
suite du jeu : la répartition des 
points de qualité qui feront la 
personnalité de votre héros. Neuf 
rubriques sont à pourvoir : 
l'intelligence, la volonté, le charme, 
l'endurance, la vitalité, la chance, 
l'habileté, l'agilité et la force. 
Lorsque votre personnage est prêt, 
l'aventure peut commencer. Vous 
vous déplacez dans les quatre 
directions à l’aide des flèches du 
pavé numérique et au hasard de 
vos rencontres, il vous faudra 
prendre les décisions qui 
s'imposent. Votre mission consiste 
dans un premier temps à recruter 
des compagnons de confiance qui 
vous aideront dans le voyage qui 
vous mènera dans la cité de 
crânes avant d'aller rétablir 
l'harmonie sur la planète Amarande 
soumise aux actions maléfiques 
d'Arioch. 

Le programme peut générer plus de 
2000 images en trois dimensions 
des endroits visités et un 
générateur de scénarios permet de 
rejouer dans une configuration 
entièrement renouvelée. Le joueur 
peut choisir parmi 10 niveaux de 
difficulté et peut sauver sa partie 
en cours de route. || y a même 
une séquence de jeu d'arcade où 
vos chances de survie dépendront 
des compétences du compagnon 
pilote que vous aurez recruté. 
Dernier détail appréciable, le 
vocabulaire entier utilisable durant 
la partie est instantanément 
accessible à l'écran à tout 


= TRES + a 


moment, ce qui évite de perdre du 
temps comme c'est trop souvent le 
cas dans les jeux d'aventure. 

En conclusion, nous conseillerons 
vivement CP programme, qui à 
notre connaissance n'a pas 
d'équivalent sur compatibles, à 
tous les amateurs de Dongeons et 
autres Chtulus. Grand frisson 
garanti ! 


DEMAIN 
HOLOCAUSTE 
CHIP 
Aventure/Arcade 


C'est dans la confrérie des cinq 
planètes Tera, Acia, Luna, Alfa et 
Pira que toute l'histoire se passe. 
Lorsque vous arrivez sur les lieux, 
le compte à rebours a déjà 
commencé puisqu'il ne reste que 
180 h à vivre dans la constellation 
de Vega. 

Ce délai de survie est dû à un 
nuage de radiations d'origine 
inconnue qui progresse lentement 
mais sûrement. La seule arme 
efficace contre lui est l'ARX 11, 
perdu sur une des cinq planètes. 
Votre mission consiste à la 
retrouver dans le temps imparti. || 
faudra tout d'abord vous équiper 
selon vos moyens et ensuite faire 
vos investigations sur toutes les 
planètes. 

Les possibilités offertes par ce jeu 
sont étonnantes, car vous n'avez 
pas moins de cinq modes de jeu 
différents (que vous utilisez selon 
vos besoins tout au long du jeu) 
sans compter un éditeur qui 
permet de saisir des informations 
sous forme d'icônes, fenêtres 
graphiques ou menus she 
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22, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 het de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker... 
les images digitalisées. Entièrement français. 
digitaliseur ARA 


Le 


CPOGI28 


MULTISERVI ue | a, 
Enfin une carte E/S ne nécessitant aucun mon- Le “must” pour les amateurs de graphisme. Utilisée 
tage, aucun relais. De plus le logiciel fourni par la majorité des créateurs de logiciel cette tablette 


(clavier AZERTY) 


PEW: 8258.46: ssesset 


(| 


PCW 8512 ........ .7690 F avec cette carte vous permet de commander vous séduira par sa simplicité d'utilisation et la qualité 
ext. 256 K pour 8256 ..................... 450 F réveil, alarme, spot. tout appareil électrique “top niveau” des résultats obtenus. (ex. options : faire SUPER-PROMOTION 
2° lect. pew 8256........... . 198 de votre choix sans être un “crack” de la pro- des points, traits, boîtes, cercles, texte, remplir, “zoom”... 


stylo optique ....... ie 
interf. RS 232/centronic ...... 
housse (mon. + clavier + imp.) 
ruban imprimante (par 2) ... 
disquette 3" (DF-DD) ...... SAR | 
allonge pew (imp. + al). .......... 


grammation. Entièrement français. L] graphiscop 


[I CPC 6128 coul + impr. 
5990 F 


0 Muitiservi 


O 


CPC'6128:c0ul:..7: 52 amas 3 
CPC 6128 mon 

CPC 464 coul 

CPC 646 mon 

imprimante DMP 2000 
interface RS 232 (Amstrad) 
souris 

Ter lecteur de disquettes 
2ème lecteur de disquettes 
mangétophone (avec câble) 
câble magnéto 


produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, joystick compétition 
le stylo optique DART à fibre optique vous PRO5000 170F 
z : permettra de réaliser de véritables chef d'œu- di L 
Disquettes vierges vres. Fourni avec logiciel d'exploitation très 
O à l'unité complet. 
© stylo optique 
SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 
© scanner graphique “DART" 


Rallonge alimentation + vidéo 

O ne soyez plus collé à l'écran, rallonge 464. 130 F 
À ne soyez plus collé à l'écran, rallonge 6128 180 F Toi ] 

housse pour moniteur + clavier 175F 1) * 3 >. 
(préciser couleur ou monoc.) 54 ; zx A ne x - 

©] ruban imprimante DMPI (par 2) 


ruban imprimante DMP 2000 
CO adaptateur peritel tous CPC 


TEGyNi MySPuE 


er So . “ne lui manque que la parole”, synthé. VOCI la lui donne ! 
pare eh cer ds soul Dicee : ; Ps pan me gr vocal va vous permettre 

tde v à n'im- sortie casque 7. e rendre votre ordinateur plus bavard qu'un politicien en 
porte quelle imprimante au standard “centronic” DA PE CON ANA Peer open TOR campagne ! à Rs 


O] câble imprimante : [] interface TV synthétiseur vocal (prog. sur cassette)... .......... 499 F 


synthétiseur vocal prog. sur disquette) 
LOGICIELS CPC 
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floopy . . ... se EX 38F 0 597: -Xen0.: 5400 100 F = budget familial . . . . . 140F0220F les mines du roi aquantus [1125 FCJ185F  tempest . .. ....... 120F0160F 
aliens 2......... O 95F - COMRS Lance ems ee des 145F0195F cao........... 320F0410F  lightforce........ 105F0160F tension. .......... 150F0190F 
arsène . ......... —  O590F master tronic n°1 ... = 99F  calcumat. ........ SD A4S60F mot. same 140F0180F  thanatos. ......... 105F0165F 
assimil (anglais) . ... C550F0590F master tronic n° 2 ... = 99F  cinéclap......... : 180F mg. + bactron. . . .. 195F0245F sold a million (n° 1)... . 110F0170F 
big band ........ —  D295F master tronic n°3 ... = 99F  cobra pinball ...... 140F0220F magmax. ........ 110F0165F sold a million {n° 2). ... 110F0170F 
breakthru . ....... O115F0160F  ikari warriors . . . ... 100F0155F  dbasell......... = 790F  mandragore. ...... 255F0255F  tobrouk .......... 120F0180F 
cobol (notice angl) . .. — C1550F les passagers du vent. . C1299F0J299F dams. ......... C295F01395F  maracaïbo........ 135F0175F  topsecret......... - D240F 
dragon's lair ...... O 90FO130F kidkit.......... 299FC1299F  dandare......... 110F0175F masque ......... — D195F trail blazer. ........ D110F0160F 
elektra glide ...... O110F0165F highlander. ....... 100F0145F data mat......... — OD450F meurtre à gde vitesse. . CJ180F0240F trivial pursuit . . . . ... D 199F0259F 
gauntlet . ........ O105F0165F silent service . . . ... 105F0155F  deactivators. . . .... 110F0165F meurtre sur l'atlantique. [1199 F[1260F winter games . ...... —- 180 F 
goonies ......... 105F0165F street hawk....... 105F0150F  deepstrike ....... 120F0170F  miami vice. . ...... 100F0150F zombi ........... = 180F 
HMS. cobra . ..... O280F0350F acrojet ......... 105F0155F division blindée . . . .. 155F0199F micro scrabble. . . . .. O195F0245F 
harry et harry... ... —  D220F america's cup chall.. .. D105F0155F  drdraw ......... — UD649F mission delta . ..... 120F0199F LOGICIELS PC 
hit pack ......... 0110F0155F avenger ......... O100F0145F drgraph......... — D649F  monopoly ........ 180 FO290 F Ci cal t 
scoobydoo . ....... O105F0150F demain holocauste . . .. = 235F explorer3........ =, 01280 F. nexor. 2:16 sure 110F0190F Où et D Ne ue 
silent service . ..... D105F0155F cobra. .......... ‘© 95F0145F fer et flammes (2 dsq). — D295F  oddjob..... es - D200F D net ES 10 Pa ae S 
thanatos ........ D110F0155F 3 dgrand prix. . .... O110F0165F  gunf. + waytg. + vis. D145F0195F omega planète invisible. 1255 FCJ255 F dE est er PR Ses 
tobrouk 1942 ..... 120F0180F 4° protocole. . ..... 195F0195F  infiltrator . ....... 115F0165F  pédagociciel (an. compl) ©1720 FCI720 F Ü or NE ACTE 
winter games . ..... O110F0140F amstradeus . ...... 490FC0570F l'affaire sydney . . . .. 150F0199F ping-pong........ 100F0165F nf tee Ua 
la solution. ....... —  D950F asphalt. ......... 140F0180F l'affaire vera cruz... .. CJ165FO199F prodigy ......... 120 F0160F a LHes RS AE 
discology ........ —  D345F  autof. à l'assembl.. . .. C1195FO295F l'ère du verseau. . . .. _ 250F raly2.......... O160F0199F il nu d UE MURAT matt" 
mines du roi aquantus . [1125 F0185F bactron ......... 140FO180F l'héritage . ....... 165F0199F robbot.......... 130F0175F por a en RS SE RE 
fight. war. + way ex... — (O240F balade au pays bigben. D180FC250F la geste d'artillac. ... C255F0255F sapiens ......... 140F0180F yes you can ........... 
fire lord . ........ 100FO160F  billy la banlieue. . . .. 140F0199F le 5° axe. ........ 120F0160F shogun. ......... 0115F0165F 
OO 5 san ee 120F0160F bob winner ....... : 180F Le diam. de l'île maudite 180F0D220F skyfox.. ga Fetes O0110F0165F 
galvan. ......... 110FO180F  boulder dash 3 . . . .. 100FO150F  lepacte......... — [D220F space moving . . .... O295F0395F PC 1512: 
glider rider. . ...... 100F0145F  bridge.......... 255F0290F le secret du tombeau . . 160F0199F spitfire 40........ D105F0170F : 
graphic city . . . .... 150F0195F  bruce lee. . ....... 110F0160F les 4 saisons . . . ... 120 F0I220F. STANC 2e Des mn 180F 


il est là ! 


LOSICIELSIPEN Possibilités de crédit partiel ou total 


Odrdraw ........ 790F Üact1.......... DO PCW graph. ...... LIVRES 
D dr graph ........ datamat pcw...... C'anny 2:02 
Opcw graph ....... cobol (notice angl.). . . © polymail + polyword. . 460 F D peeks pokes du cpc . .. 99 F routines du cpc. . . .. 
D strike force harrier .. colossus chess 4. ... CO polypl. + polices n° 1 .. 460 F D rsx et rout, ass. sur cpc 200 F liv. lect. disg. cpc. . . . 149F  Cjje débute basic amstrad 91 F 
O floopy (magazine) . . . damocles . ...... © polyprint + polyword .. 490 F Ucp/m + sur cpc et pcw 100F  Ccp/m + sur cpc et pcw100F Cgrdlivre dupcwamstrad 179 F 
CO compta. (alpha soft) . . 750 F fairlight. . ....... © polyprogram . .... graphis. et sons du cpc.. 129 F graphis. et sons du cpc 129F  Clivre du basic 1512 .. 179F 
alienor ns à force 4 + mis. detec.. . CO quick mailing. . . . . . D la bible des cpc. . . .. 199F  Clla bible des cpc . ... 199F  Clivre du gem pc 1512 .. 199 F 
am-stram dames. . .. gp II (éd. arkenciel) . . 760F  Creversi ......... © 102 prog. sur amstrad . 120 F  [routines du cpc .... 149F  Clivre logo pcwetcpc .149F 
CO autofor. assembleur . . 295 F graphol. + bioryth.. .. 199F  Crotate.......... amstrad à l'école. ... 120F  Cliv. lect. disq. cpc ... 149F C] muitiplan sur amstrad .. 195 F a 
© bang/échn. (éd. aries) .. 350 F histoire d'or. . ..... © amstrad en famille. .. 120F  Cpeeks pokes du cpc .. 99F  Cjprog. math. surcpc .. 150 F £ 
Dbatman. ........ la paie cresus  . .. O space invader. . . . .. D amstrad en musique . . 165F  Crsx et rout. ass. sur cpc 200F  CprogrammationsurPCW 149 F 2 
D blocus. ......... lang. “c” (not. angl) .. 550F  CJtassword 8000. . ... O clefs pour amstradt1 140 F [bien débuter pcw. . .. 129F  Cltrucs et astuces pc 1512 179 F £ 
Cbridge player 3... .. multiplan . ....... Ctomahawk . ...... Dlefs pour amstrad t2.. 155F  Clbien débuter pc 1512 .149F  Ciguide réf.tech. 1512 .249F | 
COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur à 1000 F. à 
8 
8 
NOM ORDINATEUR : CJ PC 1512 6128 coul. 6128 mono. 464 coul. 464 mono. 8256 [] 8512 8 
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ADRESSE TÉL. __________ CODE POSTAL VILLE 
Mode de paiement : [] chèque / [] mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. O] 


ACTUALITÉS 


FORUM INFORMATIQUE 
A PARTHENAY 


L'association Multi Informatique 

Amateurs, en collaboration avec 

la Direction Départementale de la 
Jeunesse et des Sports des Deux- 
Sèvres, organise avec la Jeune Chambre 
Economique de Parthenay et de la Gatine 
un grand forum de l'informatique. Cette 
manifestation aura lieu les 17 et 18 jan- 
vier au Palais des Congrès de Parthenay. 
L'objectif est de présenter le monde 
informatique, surtout animé par les ama- 
teurs qui présenteront leurs réalisations 
dans tous les domaines. Michel CHEVA- 
LET de TF1 fera une conférence sur la 
micro-informatique et la météorologie. 


LORICIELS, C’EST S.A. 


Depuis septembre, date du trans- 

fert de la société dans ses nou- 

veaux locaux de Rueil, ça bouge 
chez Loriciels. Après la sortie d’une 
gamme de 15 logiciels de toute nouvelle 
génération (Sapiens, MGT, Bactron, Bob 
Winner, etc.), Loriciels a restructuré sa 
distribution en créant Loridif qui assure 
un lien plus étroit avec les distributeurs 
et les utilisateurs, et en a profité pour 
devenir S.A. avec Laurent WEILL au 
poste de PDG. Marc BAYLE est promu 
Directeur général, et Philippe SEBAN, 
Directeur de la communication. Il ne 
reste plus qu'à attendre la cotation en 
bourse ! 


MICROIDS EXPORTE 


Microids est une jeune société 

d'édition bien connue des lec- 

teurs de CPC pour son Grand Prix 
500Occ qui arrive en tête des hit-parades 
pour AMSTRAD et qui est actuellement 
en cours d'adaptation pour C64, Atari et 
PC. Afin de diversifier sa distribution, 
Microids démarre en ce début d'année sa 
production à l'export vers l'Angleterre, 
l'Allemagne et l'Espagne. 


MICRO APPLICATION 
ET LE PC 1512 


A l'occasion de l'AMSTRAD 

Expo, Micro Application a pré- 

senté deux nouveaux logiciels de 
faible coût pour le PC 1512. Interfacé 
GEM, Calcomat PC est un tableur d'une 
capacité de 65535 lignes sur 65535 
colonnes qui intègre un module de repré- 
sentation graphique (barres, camem- 
berts, etc.) et une calculatrice avec édi- 
teur plein écran. Yes you can est un 
générateur d'applications qui permet au 
néophyte comme au spécialiste de créer 
ses propres applications 10 à 20 fois plus 
vite qu'avec un langage traditionnel tel 
que le Pascal ou le Basic et avec une 
sécurité de fonctionnement comparable 
à des logiciels réalisés par des profes- 
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sionnels. Cinq modules pemettent de 
générer des écrans, des menus, des 
états, des histogrammes et une gestion 
de fichiers. Yes you can intègre un puis- 
sant langage de programmation en fran- 
çais, riche de 32 instructions paramétra- 
bles, qui permet l'écriture et la mise au 
point de programmes complexes. 


CRESUS CHEZ LOGICYS 


Venant compléter les autres logi- 

ciels de la gamme PCW (Compta, 

Alienor, facturation, gestion de 
stock), Crésus est un logiciel de paie et 
de gestion du personnel. Son premier 
atout est sa rapidité : il est écrit en Turbo- 
Pascal. Le deuxième est son prix : 990 F 
HT. Enfin, une gamme complète et 
homogène de produits éprouvés’pour la 
gestion des petites et moyennes entre- 
prises. 


NOUVEAU SIMULATEUR 
DE VOL 


En 1985, les possesseurs de 

Commodore 64 pouvaient se pro- 

curer un simulateur de vol si réa- 
liste qu'un pilote de la Royal Air Force 
pouvait déclarer : ‘’Il est enfin possible 
de voler véritablement !’’ C'était le 
fameux ACE de l'éditeur britannique Cas- 
cade Games Ltd: Depuis le 1er décem- 
bre, la version AMSTRAD est enfin dis- 
ponible. Alors, enfilez votre combinaison 
et votre casque et en piste ! 


GESTION DE 
CABINET DENTAIRE 


Point n'est besoin d'un gros ordi- 

nateur pour gérer un cabinet den- 

taire, un CPC peut très bien faire 
l'affaire en utilisant le programme mis au 
point par Paul PARAGE-JOJON. Tout est 
prévu, de la compta à l'édition d'impri- 
més spécifiques. Pour plus de renseigne- 
ments, téléphoner au 94.29.59.06. 


DES FREEWARES 
POUR COMPATIBLES PC 


Le département compatibles du 

Sany-Club assure la distribution 

de France des programmes du 
domaine public américain. A ce jour, 110 
volumes sont disponibles et répertoriés 
dans un catalogue de 44 pages que vous 
pouvez vous procurer Un envoyant un 
chèque de 30 F au Sanyo-Club, Dépar- 
tement compatible, 1 rue de Clément- 
ville, 34000 Montpellier. Une participa- 
tion aux frais de 50 F (disque vierge com- 
pris) est demandée par volume comman- 
dée. 


REUSSIR EN ORTHOGRAPHE 


C'est le nom d’un nouveau pro- 
gramme éducatif édité par Logi- 
ciel 44 qui se propose en 2000 


questions et 50 règles de base de venir 
en aide aux enfants ayant des difficultés 


dans cette matière. Présenté sur dis- 
quette et fonctionnant sur CPC 464, 664 
et 6128, il gère la progression de tous 
les élèves de la classe et présente des 
résultats sous forme graphique. D'autres 
logiciels sont en cours de développement 
et seront disponibles durant le premier 
semestre de 1987 : Orthographe CE2, 
Les 4 opérations, Vocabulaire CM2, 
Conjugaisons. Logiciel 44, 5 rue des 
Grands Coutils, 444000 REZE. La dis- 
quette : 120 F, port compris. 


A PROPOS 
DU PROGRAMME 
GERMAINE... 


La publication de ce programme 
de jeu dans CPC n° 15 avait 
soulevé les remarques que l'on 
sait 
{voir CPC n° 16). Laurent HEUDE a tenu 
à s'expliquer, par un courrier adressé à 
la rédaction. En fait, Laurent était tota- 
lement ignorant des lois régissant copy- 
right et droits d'auteur, et ne pensait pas 
mal faire en reprenant une grande partie 
du programme STRIP de Patrick LAHBIB 
(publié dans un numéro d'HEBDOGI- 
CIEL). 
Etant certaine de sa sincérité, l’équipe de 
rédaction lui pardonne (d'autant que 
toute une partie du programme était de 
sa propre création) et profite de cet inci- 
dent pour rappeler aux auteurs potentiels 
qu'ils ne doivent pas reprendre, sans 
autorisation, le travail des autres... sur- 
tout s'il a déjà été publié. 
Laurent est pardonné et nous a promis 
que son prochain envoi serait entière- 
ment de son crû. Tout porte à croire qu'il 
en est réellement capable. 


SUGAR A DE L'HUMOUR 
On peut le dire ! Figurez-vous 
que ce Monsieur affirme qu'il a 
ajouté un ventilateur sur ses PC 
1512 


pour faire plaisir aux utilisateurs et que 
ce ventilateur ne sert à rien ! Et comme 
il a vraiment beaucoup d'humour, il con- 
seille même de... le débrancher pour éco- 
nomiser de l'électricité. Elle est bien 
bonne |! 


ABONNEMENTS : 


En plus des avantages qui leur 


DU NOUVEAU 
sont déjà consentis, les abonnés 


Ë recevront désormais GRATUI- 


TEMENT les numéros Hors-Série que 
nous éditerons. Une bonne manière pour 
vous souhaiter ‘Bonne Année 1987"... 


,, 
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Marcel LEJEUNE 


LES PREMIERS JEUX DE 87 


Ne les cherchez pas encore, ils ne seront 
disponibles pour la plupart que vers la fin 
du mois de janvier. 

CDS Software Ltd. prépare Brian 
Clough's Football Fortunes qui vous met- 
tra dans la peau d'un dirigeant de club 
de football de première division. Aurez- 
vous le flair et les millions pour les trans- 
ferts de joueurs qui permettront à votre 
équipe de figurer en tête du classement ? 
Toujours du football chez Argus Press 
Software Ltd. qui nous propose ‘Peter 
Shilton's Handball Maradonna ! Pourquoi 
handball pour un programme de foot ! 
Tout simplement parce que vous tiendrez 
le rôle du gardien de but dans ce superbe 
programme en 3D. 


ss: ET SE NA CNE NES 
Ses QUSASS PRES CA EAU TES 
S É- - 


Butch-Hard Guy de chez Advance vous 
tranformera en combattant de la jungle 
dans ce jeu d'arcade qui se joue en 20 
tableaux. Disponible en février, CRL est 
toujours aussi prolifique, et nous prépare 
Cyborg qui constituera le premier volet 
d'une trilogie dans la lignée de Tau Ceti. 
Ball Breaker sera un jeu d'arcade 3D où 
vous devrez renvoyer une balle contre un 
mur à l’aide d’une batte de base-ball. 
Jusque là, rien de bien passionnant ! 
Mais la balle rebondit de manière impré- 
Visible en fonction de la couleur de la bri- 
que touchée. Toujours chez CRL, Death 
or Glory qui vous entraînera dans une 
nouvelle guerre de l'espace. 


MIRAGE IMAGER REHABILITE ! 


Après avoir été récemment l’objet d'une 
controverse de la part des éditeurs de 
logiciels qui voyaient en lui l’objet diabo- 
lique qui allait les mener à la soupe popu- 
laire, le Mirage Imager sera présenté au 
6° Amstrad Computer Show, avec l'ap- 
probation d'AMSTRAD et de Databases, 
l'organisateur de l'exposition. Par contre, 
tous les autres dispositifs ou logiciels de 
copie ou de transfert seront bannis. Rap- 
pelons que Mirage Imager permet le 
transfert sur disquette de logiciels, même 
protégés, qui ne sont utilisables par la 
suite que si l'appareil est raccordé à l’or- 
dinateur. 


PRE \— RAUSEN EE, 1 
LE Due + 


AAA SEEN SAN A PLUIE 


Pre ve 


LE PRIX DES 
DISQUETTES 3'' EN BAISSE 


C'est confirmé, le prix des disquettes 3”’ 
a chuté de 40 % en Angleterre et devrait 
baisser encore, ce qui devrait provoquer 
dès le début de cette année une augmen- 
tation de la production de logiciels ven- 
dus sur disquettes. 


LES MODULES DATEL 


La société Datel Electronics vient de sor- 
tir une gamme de trois modèles électro- 
niques connectables aux CPC. Action 
Replay est un dispositif de transfert de 
cassettes à disquettes vendu 35 livres. 
Digital Sound est un échantillonneur de 
son livré avec un soft qui vous permet- 
tra de modifier ce son à l'infini. 45 livres. 
Enfin, Robot Tek est un boîtier d'inter- 
face offrant 8 entrées numériques et 4 
sorties par relais. 30 livres. Tél. 19.44. 
782.27.38.15 


SCRABBLE POUR PCW 


Le célèbre Scrabble de Leisure Genius 
vient d'être adapté à la gamme PCW. 
L'ordinateur se charge de la gestion des 
règles, vérifie dans son dictionnaire si le 
mot que vous proposez est correctement 
orthographié, et peut même jouer contre 


S AS 


REVENDEUR QUALIFIÉ 


Propose une gamme complète et diversifiée 


d'ordinateurs AMSTRAD 


étudiée pour s'adapter à vos besoins. 


FAMILIAL 


CPC 464 
CPC 6128 


Elysées 26 

26, Champs-Elysées 
75008 PARIS 

45 62 18 56 

*Ouvert le dimanche 


DISTRIBUTEUR 


TRAITEMENT 
DE TEXTE 


PCW 8256 
PCW 8512 


PROFESSIONNEL 


PC 1512 : SD-DD 
HD 10 millions 
HD 20 millions 


et assure la maintenance 


la formation 


la distribution et le développement des logiciels 


la vente des fournitures. 


228, rue du fg St-Antoine 

75012 PARIS 

43 71 12 12 

*Ouvert du lundi au vendredi 


Mini-informatique DPS 6 


AGRÉÉ Micro-informatique MICRAL 


1) 43.711212 


©: : 


228, rue du Fg Saint-Antoine 75012 Paris - Tél. 
Minitel. (1) 43.56 75,87 (mot de passe ACS/) 


64, rue de la Chaussée d’Antin 
75009 PARIS 

48 74 06 78 

*Ouvert du lundi au samedi 


Ordinateurs personnels PC 
# Réseaux 


(©) 


Vos idées se 
sentent-el les 

à l'étroit 

sur 

votre 

CPC 6108 

avec les 
programmes 

de confection ? 


-leur la liberté 

espace avec les 
ls "sur mesure” 
de Sémaphore 


TASNORD 6188 AMSTERTILE III AiS$renR alé 128 
Le traitement de texte La base données relationelle Le tableur puissant et rapide 
Tous trois utilisent TOUTE la nénoire de votre 6128 et sont aussi utilisables sur les 
484 (avec DD1) et 664 aunis de l'extension de nénoire RAH 64Ko ou 256Ko DK’tronies. 
Ces progrannes ont été maintes fois décrits dans ces pages mais nous tenons à votre dis- 
position leurs descriptifs complets. Les revendeurs spécialistes AMSTRAD se feront un 
plaisir de vous les présenter. Sémaphore vous propose TASPRINT (c'est lui qui est au 
travail ici), TASCOPY qui effectue vos copies d'écran en 8 tcns de gris ET en deux for- 
nats A4 et A3, AGENDA qui vous permet de tenir à jour un agenda électronique rapide et 
puissant, Î page par jour, tri et recherche, calcule, calendrier perpétuel, horloge .., 
SEMDRAU et DESSIN TECHNIQUE CDRAUGHTSMAN) un ensenble graphique pour les professionnels. 
Nous avons aussi à des prix imbattables, les crayons optiques DART, les extensions de 
nénoire K'tronics, MULTIFACE TU0 l'interface miracle etc... comparez nos prix avant d’ 


acheter, vous ne le regretterez pas! } } } D} >} )})>})})>))})>))>)>))>)>))>)))) 


Cela fait deux ans que nous attendions l'occasion de placer 
une jolie fille dans notre publicité... 


Cette fois c'est fait et bien à propos | 


DB (neffet, cette charmante denoiselle à été “nunérisée” 
d ga à ‘dif “sur un CPC AMSTRAD et une imprimante DP 2800 ... en 

M hr moins de dix minutes. Le "SCANNER" nis au point par 
At: DART, créateurs du maintenant célèbre crayon optique, 
* peut d'ores et déjà être commandé chez Sémaphore qui en 
A a assuré la version française. 


Le kit crayon optique + Scanner et logiciels 990.- 


Le Scanner seul avec logiciels . ...... 19. 
"Upgrade" pour possesseurs crayon optique 
DART (sur preuve d'achat) seulement . . . . . 690. 


CCC 


TRGUORD AGBB LE TARITENENT DE TEXTE POUR LES PC 
cop & A9 DÉdR ADOPTÉ PARA PLUSIEURS 
MILLIERS D'UTILISATEURS ! RAPIDITÉ, FICHIERS 
oc 99.088 ou 188.888 cranciènes, ÜRiL-QEnGE 
INCORPORÉ, ACCES AUX IBPAIDANTES. EXTERNES, 
CONPATIBLE DBASELT + TRGPAIQT AUGUENTE LES CAPR+ 
A CITÉS DE L'ADPAIGANTE PCU + DISCUTE Tour CE QUE Vous 
AP" AITENDIEZ POUR TAITURER CES DISQUETTES ET RÉCUPÉRER CES 
# FICHIERS PEROUS! LECTEURS EXTERNES 3,9 ET 5,89 + DISQUE OUR. 
# ue ee ee ou ne 9 © Ou Ou Se Se Se eo Se ou Se ee Se eu on ne ne Se ee ee 
F BRICODISC CPC. La disquette explosive de Sémaphore ! Tout ce dont 
Vous aurez jamais besoin pour commettre toutes les indiscrétions pos- 
sibles sur vos disquettes ! Deux faces, 120K de dunamite de science et 
de malice... Formatage de vos 3" à 207%K par face, créateur de menus, archivage 

rapide sur K7, transfert de fichier, moniteur de disquette avec affichage & 

édition fichiers ASCII, HEX, Source. Copie disquette et K7 à disquette, éditeur CAT 
avec UNERASE, lecteur d'en-tête, déprotection, compatible 3,5 - 5,05 - 3, tous formats 
Plus de 2Q options. RIEN ne vous résistera avec BRICODISC. } > } > > > Seulement 175F 


Sémaphore - CH 1283 La Plaine (SUISSE) - Règlement par , CCP, VISA, Eurocard accepté 
Envouer moi vite Votre documentation complète . . . . . . .. . 
 GSENL 


Nr n Prénom: ....... nd L 


PR TE er de à dt Le EE Ge 
N.Postal : Ville à 


VE 


rh 


Us 


Clone y 
HAUN 


Pascal HIGELIN 


HERRY-PAINT n'est pas fini ! Combien de fois ai-je lu ou entendu 

cette remarque ? Pour faire taire tous ces bruits, nous allons 

commencer aujourd’hui une série de deux épisodes pour ajou- 
ter à CHERRY-PAINT les fonctions qui lui manquaient. 


Après le dernier article (qui en fait n’est 
plus le dernier puisque vous êtes en train 
de lire l’avant-dernier...) de la saga de 
Cherry-Paint, nous avons reçu une ava- 
lanche de lettres (si, si.) dont les 
auteurs, tantôt désolés, tantôt outrés 
nous réclament à cor et à cri la suite du 
programme. 

Nous allons, par conséquent terminer 
Cherry-Paint en deux étapes : le mois 
prochain, nous verrons la fonction lettre, 
mais tout de suite nous attaquons les 
fonctions ‘‘rectangle vide”, ‘rectangle 
plein’" et ‘ligne’ 

Vous vous souvenez sans doute que le 
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programme, les images, les tables de for- 
mes saturent à quelques centaines d'oc- 
tets près, la totalité de la mémoire dis- 
ponible. Il faudra donc utiliser astucieu- 
sement cette zone mémoire pour ‘’com- 
muter’’, c'est-à-dire intervertir l’ancien 
programme et le nouveau programme 
que nous allons créer aujourd'hui. En réa- 
lité, il n'y aura qu'une partie de l’ancien 
programme qui sera commutée : En 
effet, il ne faut pas altérer la partie du 
programme qui s'occupe de la gestion du 
pointeur, qui je vous le rappelle tourne 
sans interruptions, sous peine de ‘‘plan- 
tages'’ assez spectaculaires. 


&N® 


Par contre, on peut utiliser sans problème 
la partie de l’ancien programme qui gère 
les entrées-sorties sur disquette : la sau- 
vegarde d’une image et le tracé d’un rec- 
tangle sont effectivement totalement 
indépendants. 

Pour gérer le recouvrement entre l'ancien 
et le nouveau programme, nous allons 
implanter une petite routine à partir de 
l'adresse # A5O0, qui chargera selon la 
fonction demandée, la partie du code 
correspondante. Les deux programmes 
commutés, s'appellent PROG1.BIN et 
PROG2.BIN, la partie du code qui ne 
bouge pas s'appelle PROG.BIN. 

Après ces quelques explications sur le 
fonctionnement interne du programme 
de commutation, nous allons voir com- 
ment se servir des nouvelles fonctions : 
— Le rectangle vide : Après avoir sélec- 
tionné le rectangle vide dans la grille des 
outils, il sufffit de cliquer à l'intérieur de 
la fenêtre de travail, si vous tracez votre 
premier rectangle, le lecteur de disque se 
met à tourner et le programme du rec- 
tangle est chargé. Le point de l'écran sur 
lequel vous avez cliqué sera considéré 
comme étant le coin fixe de votre rec- 
tangle. Tout en appuyant sur la barre 
d'espacement, vous pouvez alors dépla- 
cer le curseur : le rectangle se déforme 


LeRcode 
ŒUERTOUSSUVOUS PROPOS ONS 


VouSSperAeCtraqde: 


des rectangles pleins, 


Et des lignes droites, 


Si vous avez l'intention de CREER 
ou si vous avez déjà créé 


VOTRE BOUTIQUE INFORMATIQUE 


rejoignez nous avec la franchise 
SON VIDEO 2000 et devenez un 
distributeur POINT MICRO pour 
MOINS DE 20 000 Frs !!! 


DISTRIBUTEUR AGREE AMSTRAD, COMMODORE 
ATARL,ORIC et COMPATIBLES PC . 


RENSEIGNEMENTS 
56 98 91 78 


SON VIDEO 
e 2000 

} MICRO 
AQUITAINE 


AMSTRAD  SRIC 


THOMSON S 


G commodore 


31, cours de l’Yser 
33800 BORDEAUX 
Tél.: 56.92.91.78 


alors de manière à ce que l@ Cain opposé 
au coin fixe suive le curseÿr. L'èrectan- 
gle sera inscrit définitiveñhent Îprsque 
vous relâchez la barre d'espacêment 
(essayez vous-même ce $era beauë&oup 
plus simple !). Il faut femarquer Que 
lorsqu'on le déforme, L£ rectangle n'àf- 
face pasdsifäntion d'infage située en de- 
sous #e lui.dæ trâmé constituant le jeC* 
tanglfé es@bien etfendu sélection#éblé 
dans mere nbtifs. L'épaisséuel 
rectänuleemègidble en déplacäntie 
petit OdiseÜT en bffs à gauche, erMiace 
de l'épalSSeuméñoisie, le trait pointé 
correspond à une épaisseur nulle (invisi- 
De). Lors du démarrage du programme, 
ja lame courante est blanche. En traçant 
à ce Moment un rectangle, il sera blanc 
Sur blaic donc invisiblegifeegviendra par 
conséquent de chég@nle, t'ame. 

Ÿ Le reëtangle fete Mmhchionne de 
mènière toût à falisiitietemt#hotif de 
ihplissagäest EWmOttetrt,.et le 
£éohtour est @blighgkement#Oir. C'ESe 
dns ce ca% qu'apbarait l'utilité de 
l'épaisseur deftrait nulle : En eff, on 
peut obtenir pdfSeæmmoyen, un ratängle 
non encadréf 

— La ligné@: ComMeWbour les Kégtan- 
gles, un préihiéRelie@éfhit le poinÿfixe, 
un déplacertien? 48 Cuggeur permet alors 
de faire touler ou tirer cette figne 
autour de ce pot fixe, c'est pougicette 
raisoWwqu'elle est parfois appelléëigne 
#aStiquee motif et l’épaissedgle la 
ligne peut être choisis dans he gril- 
les corresdhdantes. 
Passons#naïtenant aux choses #érieu- 
ses, c'#Æt-à-dire la saisie du code : pour 
commÉ£ncer, Mfaudra taper le cade, du 
progamme dé gestion des Æommutà- 
tigfis. Commellcez par évitér BMISing 
Basic n° 1, voëls le sauvez US WeMSile 
lancez. A l’aid& de ce proglemmempts 
pourrez saSehçodes hexadécimMaux dig 
listing PaipsLdueeurs somméèdelsôn - 
trôle, Pafilemeèett saisie, le code objet 
est sal v@S01#nam ‘'CODE9.BIN"’. Il 
conviéhd'æaiei#"deblacer sur une même 
disquette %s fichiers VABBN, 
CODE.BINmg@D0E1.BIN, COBE2,BINY 
CODE3.BIN, CODEA4.BIN, CODBSSIR, 
CODE6.BIN, CODE7.BIN, @ODBSSIN 
CODE9.BIN, TR.BIN, SH.BIN, SORA. 
Y apez alors le listing Basic n°%@, SäëVez- 
le et lancez-le. Ce programme Vntsaré” 
former tout le code objet en trois 
fichiers : PROG.BIN, PROG1.BIN et 
VART.BIN qui @nténfge code de 
commutation. 

Il faudra alors taper le chargéRhex&lty 
listing 4 (ou plus simplement Modifrèg 
celui du listing 1) le sauver gt ldlancer. 
Vous prenez alors votre cofragelà deux 
maiosdaumoins |!) pougéäaisir le Gode du 
isa. Afin desét exercice, IP char- 
MA vedMieÉra le code sousile nom 
GPROBLEINM Vous puisez aldrs dans 
Vos réel énergie pour ouver la 
fotte, de. taBér le dewfffér %ebn !) pro- 
graMmë br Basic : Æ laficeur @ listing 
6, vous le sauvez..Kvot=Aañcez.. 
Voilà pour aujourd'NBi FM&Soakvenez- 
vous, on se retrouvêMlà mois #rochain 
aour la fin définitive ÉtéÆETgCable de 
Cherry-Paint. 
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1000 


| 1040 


, 
, 
, 
, 


Il 
| 
| 
1140 
1150 
1160 
1170 POKE DEBUT+148+J, À 
1180 , SOMME=SOMME+A 
1190  NEXT 
1200 INPUT" *,N ; 
1210 IF N<>SOMME THEN PRINT"ERREUR":GOTO 1080 
1220 NEXT 
| 1230 
1240 SAVE"CODE9",B,&A500, 850 
1250 END 
1260 
1270 CALL &BBBA 
1280 AS=INKEYS: IF A$<>"" THEN 1280 
| 1290 AS=INKEYS: IF A$="" THEN 1290 
1300 B=ASC(UPPERS (AS) ) 
1310 IF B<48 OR (B>57 AND B<65) OR B>70 THEN 1280 
1320 PRINT A$: 
1330 RETURN 


._— 


MEMORY 87FFF 


LOAD"VAR.BIN" 
LOAD"CODE.BIN" 
LOAD"CODE1.BIKN" 


CHARGEUR HEXA 


MEMORY &8000 


DEBUT=8&AS500 

FOR I=0 TO 9 
SOMME=0 
PRINT HEX$(DEBUT+I%8) :" "5 
FOR J=0 TO 7 


GOSUB 1270 
B$=AS$ 

GOSUB 1270 
A$=B$+A$ 
PRINT" “; 
A=VAL("&"+AS$) 


PROGRAMME DE TRANSFORMATION 


shing 


1090 ‘LOAD"CODEZ2. BIN" 


1200 
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POKE 8&8382,82S 
POKE 88383,886 


1210 POKE 88386,83E 


LOAD"“CODE3.BIN" 
LOAD"CODE4.BIN" 
LOAD"CODES.BIN" 
LOAD"CODE6. BIN* 
LOAD"CODE7.BIN" 
LOAD"CODES.BIN" 
LOAD"CODES.BIN" 


*BRANCHE LA ROUTINE 
*DU CRAYON. 


*BRANCHE LA ROUTINE 


POKE 
POKE 
POKE 
POKE 
POKE 


POKE 
POKE 
POKE 
POKE 
POKE 


&8387,887 


&8384,88D 


&8385,888 


&8388,&DD 
&8389,8&87 


&838A,8&14 
&838B,8&8A 


&838C,867 
&838D,8&98 


&83E0,8&D2 
&83E1,8&64 
&83E2,88B 


&845C,8&CD 
&845D,8&F6 
&84SE,&8A 


&A474,R1A 
&A475,892 


&A476,87C 
&A477,8S1 


&A478,896 
&A479,883 


&A4IC,4 


&A41D,&A4 
&RA41E,897 


&AA41F,&EI 
&A420,8&97 


&A47F,8&ASG 
&A480,895 
&984B,8&C9 


&B8E56, &O 


&8ES7,8&6A 
&8F14,8&O 
&8F15,8&6A 


&A427,8C 
&A428,82 
&A429,896 
&A42A,&9C 
&A42B,B&AA 
&A42C,8&9C 


&8E10,&CD 
&8E11,840 
&8E12,89A 
&965E,8&CD 
&96SF,8&40 
&9660,8&JA 
&97EA,8&CD 
&97EB,8&40 
&97EC,&S9A 


&A421,8&11 
&A422,8&7 

&A423,84B 
&A424,8A1 
&A425,88E 
&A426,8A1 


&A41C,8S 

&A41D,8&41 
RAA4ÎE,8&A3 
&A41F,888 
&A420,8&A3 


2000 SAVE"PROG",B,8&8000,8&BE0D-8&8000 
2010 SAVE"PROG1",B,&B8EOD, &A3SFE-&B8EOD 
2020 SAVE"VAR1",B,&A400,8&200 


*DE LA GOMME. 


*BRANCHE LA ROUTINE 
*DE LA BOMBE DE PEINTURE. 


*BRANCHE LA 
*DU PINCEAU. 


ROUTINE 


*BRANCHE LA ROUTINE 
*DE LA MAIN. 

*BRANCHE LA ROUTINE 
*DU CARRE POINTILLE. 


BRANCHE LA ROUTINE 
*DE LA BARRE 
*DE MENUS. 


*BRANCHE LA ROUTINE 
*DE SAUVEGARDE D’UNE IMAGE. 


"BRANCHE LA ROUTINE 
*DE CHARGEMENT D’UNE IMAGE. 


*4 LIGNES DANS "FICHIER". 


BRANCHE LA ROUTINE 
*DE NETTOYAGE DE L'IMAGE. 


BRANCHE LA ROUTINE 
*D'IMPRESSION DE L’IMAGE. 


*BRANCHE LE MENU DEROULANT 
*FACILITES. 


> 


*BRANCHE LE MENU DEROULANT 
*EDITION. 


*BRANCHE LA ROUTINE 
*DU CATALOGUE. 


*SAUVE LA PARTIE FIXE 
*SAUVE LA PREMIERE PARTIE 
*SAUVE LES VARIABLES 


CHARGEUR HEXA SF6D 80 28 06 CB OA CB 2B 10 649 


8F75 FA FD 72 O2 FD 73 03 24 1032 
: 8F7D 97 91 7D E6 F8 6F ED SB 1338 
1040 HEHORY &8000 L Lu 8F85 95 91 7B E6 F8 5F B7 ED 1410 
1050 ? \S BF8D 52 CB 3C CB 1D CB 3C CB 1043 
1060 DEBUT-&B8EOD 8F95 1D CB 3C CB 1D 34 SS 91 680 
1070 FOR I=-0 TO 248 /z BF9D  4F 3A 9B 91 S1 4F OC 45 742 
1080  SOHHE=0 LE BFAS 04 ED 42 &F Gi 3A Bi O1 1008 
1090 PRINT HEX$(DEBUT+I%8);" de  « BFAD FE 00 C& 24 97 91 ED SB 1120 
1100 FOR J=0 TO 7 8FB5 95 91 AF ED 52 BC 20 2€ 1048 
1110 GOSUB 1270 8FBD  3A B1l £1 87 BD 38 21 FD 1046 
1120 B$=AS$ B8FCS 56 00 4D OC 21 CO 70 ES 549 
1130 GOSUB 1270 8FCD SA BO 91 47 26 OC 23 10 555 
1140 A$=B$+AS$ 8FD5  FB Eli 7E B2 77 CB O4 30 1160 
1150 PRINT" "; 8FDD O1 23 CD 20 F5 C3 22 90 699 
1160 A=VAL("&"+AS$) 8FES  S3A B1l 91 87 FS 4F FD 56 1178 
11170 POKE DEBUT+I*8+J,A BFED 00 2: 00 70 E5 3A BO 91 753 
11180 SOHHE=SOMME+A 8FFS 47 36 90 23 10 FB El 7E 778 
11190 NEXT 8FFD B2 77 CE OA 30 O1 23 OD 607 
11200 INPUT" ",N 9005 20 F5 3A BO 91 4F 06 00 741 
11210 IF N<>SOMME THEN PRINT"ERREUR":GOTO 1080 900D 21 00 70 09 2B F1 4F FD 770 
1220 NEXT 9015 56 02 7E B2 77 CB O2 30 764 
1230 901D O1 2B OD 20 F5 ED 4B AF 821 
11240 SAVE"PROG2",B,&8EOD, 1988 9025 91 2A A9 91 3A B1 91 5F 976 
11250 END 902D 91 38 04 CD 52 90 C9 ED 1074 
1260 9035 44 F5 D5 4B CD 52 9O Di 1241 
11270 CALL &BB8A S03D F1 4F 93 30 04 CD 52 GO 950 
1280 A$=INKEY$: IF A$<>"" THEN 1280 9045 C9 4F C4 AA 90 34 B1 91 1170 
1290 A$=INKEYS#: IF A$="" THEN 1290 904D 4F CD 52 90 C9 AF 32 6D 1045 
11300 B-ASC(UPPERS (AS) ) 9055 90 32 8B 90 C5 ES FD 7E 1282 
11310 IF B<48 OR (B>57 AND B<65) OR B>70 THEN 1280 905D 03 2F 57 FD 7E O1 SF ?F 659 
1320 PRINT A$: 9065 05 28.1B A6 F5 7B DD A6 993 
1330 RETURN S06D 00 SF 3A 6D 90 EE O1 32 695 
LE  — RP 9075  6D 90 32 8B 90 F1 B3 77 1125 
: 907D AF 1E FF 23 18 E2 B2 A6 1089 
ASh* 9085 F5 7A 2F A3 DD 46 00 SF 1059 
908D F1 B3 77 El DD 23 DD 23 1276 
CD D2 8E DD 2A A5 A4 CD 1354 9095 DD E5 C1 79 E6 OF 20 05 1046 
2B 8F CD 38 8E CD BD 8E 1125 909D O1 FO FF DD 09 C1 CD 26 1162 
18 F1 CD D2 8E DD 21 10 1092 9OA5 BC OD 20 A9 C9 AF 32 BB 1015 
65 CD 2B 8F DD 2A A5 A4 1084 SOAD  9O E5 CS 11 OO 70 1A 4F 804 
CD E6 90 CD 38 8E CD BD 1376 90B5  2F A6 F5 79 DD A6 O0°4F 1045 
8E 18 EA 3E 2F CD 1E BB 931 SOBD 3A BB 90 EE O1 32 BB 90 1009 
20 07 E1 CD AF 81 C3 08 976 9g0Cc5 F1 B1 77 23 13 10 E7 DD 1059 
80 2A C7 A4 O1 06 00 09 549 9OCD 23 DD 23 DD ES C1 79 E6 1285 
ES 11 60 00 AF ED 52 E1 1061 90D5 OF 20 05 O1 FO FF DD 09 778 
30 03 EB 18 OB 11 6F O2 451 90DD C1 Ei CD 26 BC OD 20 C5 1091 
E5 B7 ED 52 El 38 O1 EB 1248 90E5 C9 24 9B 91 ED 5B 99 91 1169 
22 A5 91 ED 5B 9F 91 B7 1159 9OED B7 ED 52 34 B1 91 87 SF 1112 
ED 52 28 O1 3C 2A C9 A4 827 90FS5 16 00 ED 52 D8 4D OC 24 688 
01 08 00 B7 ED 42 ES 11 741 9OFD 97 91 ED 5B 95 91 ED 52 1237 
AB 00 B7 ED 52 E1 38 03 957 9105 87 5F 16 00 ED 52 D8 24 829 
EB 18 OB 11 2i GO ES5 B7 732 910D 97 91 23 3A B1 91 87 5F 941 
ED 52 E1 30 O1 E8B 22 A7 1029 9115 16 00 ED S2 7D E6 07 47 774 
91 ED 5B A3 91 B7 ED 52 1283 911D SE FF 28 04 CB 3F 10 FC 895 
28 01 3C FE O0 CA 38 8E 755 9125  2F FD 77 03 7D E6 F8 6F 1136 
2A AS 91 22 SF Qi 24 A7 899 912D ED 5B 95 91 1B E5 EB 3A 1171 
91 22 A3 91 11 95 91 21 831 9135  B1 91 87 5F 16 00 19 7D 724 
9D 91 O1 08 00 ED EO C9 925 913D  E6 07 47 3E 80 28 04 CB 745 
AF CD F6 8A C9 3A 8C A4 1327 9145 2F 10 FC 2F FD 77 O1 EB 970 
21 B2 91 SF 18 C0 1D i9 527 914D E1 7B E6 F8 SF B7 ED 52 1423 
7E 32 B1 91 C9 CP C2 8E 1240 9155 CB 30 CB 1D CB 3C CB 1D 990 
11 5A 00 21 69 OZ 06 B3 432 915D CB 3C CB 1D 45 04 2A A9 779 
OE 29 CD E4 83 30 04 El 896 9165 91 34 95 91 E6 07 57 34 879 
C3 08 80 CD 09 B9 21 AC 935 916D  B1 91 87 82 F5 E6 07 20 1101 
81 36 C9 2A BF A4 ED 5B 1109 9175 O1 2B F1 CB 3F CB 3F CB 1020 
DS A4 ED 4B D3 A4 CD 84 1401 917D  3F 5F 16 00 19 34 B1 91 585 
81 3E FF CD F6 8A 2A C7 1276 9185 FE 00 28 08 F5 CD 26 BC 978 
A4 O1 06 00 09 22 95 91 508 918D F1 3D 18 F4 CD 52 90 C9 1202 
22 97 91 2A C9 A4 B7 O1 921 9195 00 00 00 00 00 00 00 00 (o] 
08 00 ED 42 22 99 S1 22 677 919D 00 00 00 00 00 00 00 00 (o] 
9B 91 11 9D 91 21 35 91 946 9145 00 00 00 00 00 00 00 00 (e] 
01 08 00 ED BO C9 CD B7 1011 91AD 00 00 00 00 06 06 04 02 18 
91 2A 9B 91 29 11 80 67 776 91B5 O1 00 2A 97 91 ED 5B 95 816 
19 5E 23 56 2A 95 91 7D 701 91BD 91 E5 B7 ED 52 El 30 07 1156 
CB 3C CB 1D CB 3C CB 1D 990 91C5 ED 53 97 91 22 95 91 2A 986 
CB 3C CB 1D 19 22 A9 91 868 91CD 95 91 2A 9B 91 ED SB 99 1117 
FD 21 AB 91 E6 07 47 11 927 91D5 91 E5 B7 ED 52 E1 DO ED 1546 
FF 80 28 06 CB OA CB 3B 904 91DD 53 9B 91 22 99 91 C9 CD 1121 
10 FA FD 72 OO FD 73 O1 1002 91E5 C2 8E 3E C9 32 AC 81 CD 1155 


19 


, 
, 
, 
, 


PROGRAMME LANCEUR 


MEHORY 8&7FFF 


LOAD"PROG" 


LOAD" 
LOAD" 


POKE 
POKE 
POKE 


POKE 
POKE 


POKE 
POKE 


POKE 
POKE 
L 


CALL 


PROG1" 
VARI1" 


&B802A,8&C3 
&802B,&0O 
&802C,&AS 


&8392,8&C 
&8393,8E 


&8394,81F 
&8395,8E 


&8390,8&E4 
&8391,811 


&8000 


*CHARGE LE PROGRAMME PRINCIPAL 
*’LA PREMIERE PARTIE DU CODE COMMUTE 
"ET LES VARIABLES 


BRANCHE LE "COMMUTATEUR DE CODE" 


*BRANCHE LE RECTANGLE VIDE 


*BRANCHE LE RECTANGLE PLEIN 


*BRANCHE LE TRAIT 


*LANCE LE PROGRAMME 


Vous avez un AMSTRAD), —— 
Vous avez un MINITEL. (rn 


avec LE LOGICIEL JMN SÉRIE version 2° 
et son CABLE SPECIAL DE RACCORDEMENT, pour : 


1 — ENREGISTRER, IMPRIMER et ARCHIVER toutes les informations accessibles par minitel, quelles que soient leurs sources. 

2 — Rechercher un fournisseur, ou de nouveaux clients, en ÉDITANT VOS ÉTIQUETTES-ADRESSES DIRECTEMENT A PARTIR 

DE L'ANNUAIRE ÉLECTRONIQUE. è 

3 — RÉDUIRE VOS TEMPS, donc vos COÛTS DE CONSULTATIONS : Sitôt affiché, un écran minitel est enregistré ! (Quelle économie 

quand vous consultez le 36.15 ou des Banques de Données Professionnelles…). 

4 — COMMUNIQUER avec un AMSTRAD distant par le RÉSEAU TÉLÉPHONIQUE, sans modem spécialisé : échanges de fichiers, 

de programmes, de courriers. (à une vitesse nominale de 120 caractères par seconde dans les 2 sens). 

5 — Transformer tout fichier reçu en code VIDEOTEX en fichier ASCII, compatible avec vos autres logiciels standards : locoscript, DBase... 
(Ce logiciel nécessite une interface Série d'Amstrad). 

* Le logiciel I]MN SÉRIE, recensé dans le RÉPERTOIRE DES PÉRIPHÉRIQUES pour MINITEL, édité en avril 1986 par lADMINISTRATION 

DES TÉLÉCOMMUNICATIONS, est disponible dans sa version 2 pour AMSTRAD. Une version compatible PC (pour AMSTRAD 

PC 1512), permet en plus des autres fonctions l'enregistrement automatique de l'annuaire électronique, avec recherche automatique des 

codes postaux (nous consulter). 


avec LE LOGICIEL JMN SERVEUR monovoie version 2° 
et son CABLE SPÉCIAL DE RACCORDEMENT, pour : 
1 — CRÉER votre APPLICATION SERVEUR : 8 couleurs, 4 tailles de caractères, graphisme plein ou mosaïque, soulignement, 
clignotement, inversion, enchaînements, mots de passe... 
2 _ TRANSFORMER VOTRE AMSTRAD EN SERVEUR (nécessite l'adjonction d'un modem) pour : 
— Mettre en place un journal cyclique (informations diffusées sur un lieu public, messages publicitaires.) 
— Gérer une messagerie complète avec mots de passe individualisés. 
— Diffuser des informations à vos correspondants habituels (syndicats d'initiative, clubs, associations, fournisseurs...) 
— Enregistrer des messages, des réservations, des commandes, ou même créer votre propre répondeur télématique individuel... 
__ Permettre la consultation à distance de vos fichiers standard et Bases de Données créés avec DBase ou JETSAM, ou de textes de 
toutes longueurs créés avec LOCOSCRIPT ou WORDSTAR... 
** La version 2 du logiciel JMN SERVEUR sera disponible fin 86. 
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Adresse 


Code Postal 
Paiement : à la commande Signature 


(En cas de règlement joint à la commande, OT.B. prend à sa charge les frais de port). 


ECRITURE ET LECTURE 
DE FICHIERS 


Michel ARCHAMBAULT 


OPENIN, CLOSEOUT, CLOSEIN, qui permettent d'enregistrer 


N ous allons vous préciser les ‘’dessous’’ des ordres OPENOUT, 


toutes sortes de données sur cassettes ou disquettes. Vu l’in- 
térêt évident de ces commandes, il est essentiel de tout savoir sur 
elles, ce qui est permis, ce qui ne l’est pas, ainsi que leurs pièges. 
En guise de final, nous vous livrerons un petit utilitaire super-utile… 


QU'EST-CE QU'UN FICHIER ? 


C'est un enregistrement contenant une 
suite de mots et de nombres, même 
mélangés, et dans un ordre pouvant être 
quelconque. Puisqu'ils sont écrits à la 
‘’queue-leu-leu’’, bout-à-bout, on les 
appelle des fichiers séquentiels ; à la dif- 
férence des fichiers ‘’indexés'’” ou à 
‘’accès direct’ (seulement possibles 
avec le CPC 6128 et le PCW). Nous n’en 
parlerons pas aujourd'hui, car c'est com- 
plètement ‘à part’. 

Un fichier est composé avant tout d’en- 
registrements. Un enregistrement peut 
être un mot, un nombre, ou une longue 
phrase (maximum 255 caractères), exac- 
tement comme une feuille de papier où 
vous auriez écrit des notes, parfois un 
mot par ligne, ou une longue phrase. 
Ainsi, au lieu de ‘enregistrements, il est 
fréquent de parler de ‘lignes’ d'un 
fichier, c'est pareil, c'est plus court à pro- 
noncer, mais c'est ‘’incorrect'’… 

Un enregistrement, c'est une suite de 
caractères (lettres, chiffres ou CHR$, 
jusqu'à 255). Voilà pourquoi on les 
appelle des ‘‘Fichiers ASCII”, à l'opposé 
des ‘‘fichiers binaires’, lesquels sont le 
plus souvent des programmes ou des 
suites de nombres (0 à 255) comme les 
“fichiers écrans'’. 

On ne peut faire un LOAD d'un fichier 
ASCII, ce serait absurde ; où voulez-vous 
donc qu'il aille se loger dans la mémoire ? 
En revanche, on peut faire LOAD sur un 
fichier binaire (.BIN), car lui, il sait où il 
doit aller. 

En somme, un ‘fichier séquentiel 
ASCII”, c'est une feuille de notes que 
l'on écrit sur support magnétique, une 
suite de ‘’DATA sur disquette ou cas- 
sette’’. D'ailleurs, les Anglo-saxons les 
appellent des ‘’DATA FILES””’. (Note : en 
anglais, le mot ‘’FILE"" désigne aussi bien 
un ‘‘programme’’ qu'un ‘‘fichier'".…..) 
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A QUOI ÇA SERT ? 


A récupérer d’une manière permanente 
ce qu'a produit un programme, qu'il 
s'agisse d'un traitement de texte, d’un 
logiciel de calculs (tableur, ‘’calc'’, etc.), 
d'un gestionnaire de fichiers, ou d’une 
partie d'échecs en cours. 

Rien de plus facile que de faire le voyeur 
sur un fichier ASCII (impossible à proté- 
ger). Par exemple, sous CP/M, il suffit de 
taper TYPE, suivi du nom du fichier. Mais 
quelle pagaille ! Afin que cette suite de 
données soit exploitable, vous devinez 
que le logiciel qui les a entassées ainsi 
devra les ressortir selon la même logique 
pour ‘retrouver ses petits”. 

Un usage très particulier est la sauve- 
garde d'un programme Basic en ASCII, 
non pas par OPENOUT, mais par SAVE 
‘’nom du programme’, virgule A. Ce 


fichier ASCII est la reproduction exacte 


de votre listing ; un enregistrement par 
ligne Basic. Il est normal que sa taille sur 
disquette ou cassette soit supérieure 
d'environ 20 % à la version Basic 
(.BAS). En effet, pour ‘'LOCATE 8,12:'', 
cela fait 12 caractères, soit 12 octets en 
ASCII, mais en traduction Basic, il n’y a 
que trois octets, à savoir 169 (TOKEN 
de LOCATE), 8 et 12. Un programme 
Basic en ASCII (pas d'extension) est un 
cas particulier, car c'est le seul à pouvoir 
être chargé par LOAD ou RUN. Deux 
usages principaux : la récupération par 
MERGE ou CHAIN MERGE (CPC 464) ou 
pour transmettre Un programme Basic 
par une ‘‘interface série RS 232c’’, direc- 
tion un ordinateur d'une autre marque ou 
un MODEM. 


OUVERTURE ET 
FERMETURE D'UN FICHIER 


Pour l'ordinateur, des éléments comme 
le magnéto-cassette ou le drive, c'est de 


‘l'extérieur à lui’, même si c'est dans 
le même boîtier en plastique. S'il doit 
créer, écrire un fichier, il doit faire sortir 
des données qu'il a dans sa mémoire et 
ce en ‘‘’ouvrant’’ cette sortie. D'où le mot 
OPENOUT, suivi du nom que ce fichier 
aura sur disquette ou cassette. Donc, cet 
ordre se contente d'enregistrer le nom. 
Viennent ensuite les données à enregis- 
trer, puis il faut fermer le fichier en ques- 
tion (terminer), c'est le mot CLOSEOUT 
(=ferme la sortie). À votre insu, un 
CHR$ (26) est enregistré après la dernière 
de vos données, c’est le repère de fin de 
fichier sur le support magnétique. 
Physiquement, qu'est-ce qui est enregis- 
tré ? C'est légèrement différent sur cas- 
sette ou disquette : sur cassette, c'est 
le nom, le type (ASCII), le numéro de 
‘’block'" et sa longueur en octets, c'est- 
à-dire 2048 ou moins. La longueur totale 
(plusieurs blocks) est encore ignorée. 
Puis les données (codes ASCII de cha- 
que caractère) et enfin le CHR$(26) 
(aussi appelé CTRL Z). 

Sur disquette, le nom, le type, la lon- 
gueur totale et la localisation pistes/sec- 
teur sont enregistrés sur la piste n° 2, 
celle du DIR ou de CAT. Les données 
sont sur d’autres pistes et avec, en final, 
le CHR$(26), (= &1A). Il va de soi que 
la taille sur la piste n° 2 est enregistrée 
en dernier, quand on connaît la longueur 
totale. et ce lors du CLOSEOUT. 
Pour charger les données d'un fichier, 
l'ordinateur doit à présent ouvrir pour 
faire entrer des données dans sa 
mémoire, d'où le mot OPENIN, puis les 
recevoir par des INPUT #9,#9 signifiant 
canal n° 9, celui de cassettes ou disquet- 
tes. Prenons l'exemple du fichier 
‘TRUC’ comportant 100 enregistre- 
ments, que l'on va loger en mémoire 
dans un tableau DIM D$. 

310 DIM D$(100) 

320 OPENIN'"TRUC" 


330 FOR 1=1 TO 100 
340 INPUT # 9,D$(I):NEXT 
350 CLOSEIN 


Le CLOSEIN va faire quitter la canal # 9 
pour que l'ordinateur puisse faire autre 
chose, un OPENOUT ou un autre OPEN- 
IN par exemple. Remarquez que l'enre- 
gistrement n°101, le CHR$(26) n'a pas 
été lu, le CLOSEIN s'est fait avant. 
Modifions la ligne 330 en 

330 FOR 1=1 TO 18 

Le fichier est fermé par CLOSEIN, alors 
qu'il avait encore quelque chose à lire. 
Sans importance et sans conséquence. 
Vous avez parfaitement le droit de faire 
un arrêt prématuré de lecture. 
Modifions encore la ligne 330 : 

330 FOR 1=1 TO 108 

Pour 1=101, il fait l'INPUT #9 sur le 
CHR$S(26). Il n'aime pas cela et il vous 
dit : 

EOF met in 340 

et il plante là. Cela se traduit par ‘’Fin de 
fichier rencontré en ligne 340”. Cet EOF 
(= End of file), c'est le CHR$(26). 
Alors comment faire si on ne connaît pas 
le nombre exacte d'enregistrements 
dans le fichier ? Eh bien, c'est là que le 
CHR$(26) ou EOF va nous être très 
utile : : 

330 WHILE NOT EOF:1=1+1 

340 INPUT # 9,D$ (1): WEND 

Ça signifie ‘‘tant que tu ne rencontres 
pas le EOF, tu entres les données’’. Pour 
lister un fichier à l'écran, ces lignes 
deviennent : 

330 WHILE NOT EOF 

340 INPUT # 9,A$:PRINTA$ :WEND 
C'est l'équivalent du TYPE en CP/M. 
Pour éditer sur imprimante, remplacez 
PRINTA$ par PRINT # 8,A$. 


LES OUVERTURES COMBINEES 


Vous n'avez pas le droit de faire un 
secogd OPENOUT sur un autre nom de 
fichier, tant que le premier OPENOUT n'a 
pas été fermé par CLOSEOUT. Idem pour 
OPENIN. Sinon plantage avec le message 
‘File already open'’, signifiant ‘‘Fichier 
déjà ouvert". 

En revanche, vous avez le droit (sur dis- 
quette) d'avoir en même temps un 
OPENIN et un OPENOUT. Un exemple : 
nous avons un fichier ‘’ TRUC’ conte- 
nant des nombres, à partir duquel nous 
voulons créer un fichier ‘’TRUC5’', où 
ces mêmes nombres seront multipliés 
par cinq. 


300 OPENIN'TRUC"" 
310 OPENOUT''TRUC5" 
320 WHILE NOT EOF 
330 INPUT #9,N 

340 PRINT #9,N+5 
350 WEND 

360 CLOSEIN 

370 CLOSEOUT 


L'ordre des lignes 300/310 au 360/370 
n'a aucune importance ; on peut com- 
mencer par OPENIN ou OPENOUT. 
Avantage : On n'a pas eu à charger en 
DIM le fichier TRUC pour le ‘‘recracher’' 
dans TRUCS5. 


Inconvénient : Chrono en main, c'est un 
peu plus lent qu’en faisant l'OPENOUT 
‘’TRUCS5'' après le CLOSEIN de 
“TRUC”. 


LES TECHNIQUES 
D'ECRITURES DE DONNEES 


Doit-on utiliser PRINT # 9 ou WRITE #9 ? 


Disons tout de suite, WRITE est plus pru- 


dent que PRINT. Pour vous en convain- 
cre, faites cet essai en mode direct : 
PRINT 3+2, 4:8 

Vous obtenez 6 8 mais séparés par 
13 espaces ! Remplaçons PRINT par 
WRITE. On a alors 6,8. 

Pour PRINT, la virgule est une ‘‘tabula- 
tion de zone’’ ; pour WRITE, elle reste 
un ‘séparateur’. 

Soit à enregistrer les nombres 100, 200 
et 300 : 

PRINT # 9,100,200,300 au 

WRITE # 9,100,200,300 

Il sont tous deux corrects, mais avec 
PRINT # 9, le fichier sera beaucoup plus 
gros en octets. En effet, nous enregis- 
trerions : 


100 200 300 
alors que WRITE#9 va donner 
100,200,300. 


Dans le premier cas, on va enregistrer 
1,0,0, des blancs, 2,0,0, des blancs, 
3,0 et O ; contre onze octets avec 
WRITE # 9 : pertes de temps et gaspillage 
de support magnétique. 

En revanche, s’il n'y a qu'une valeur par 
enregistrement, comme : 

PRINT # 9,100:PRINT # 9,200:PRINT # 9, 
300 

PRINT et WRITE sont d'effets identiques. 
Avec les chaînes, les différences sont 
plus grandes. Essayez en mode direct : 
A$ =""JEAN"":B$ = "PAUL" 

puis PRINT A$,B$. Cela donne : 
JEAN PAUL 
et maintenant WRITE A$,B$. Surprise ! 
On a : 

JEAN’, "PAUL" 

Les guillemets sont conservés ! 

Autre piège de la virgule avec PRINT : 
C$ = "MARIE, ,ANNIE"" 

Si vous faites PRINT C$, vous aurez : 
MARIE,ANNIE 

mais après un PRINT # 9,C$, à la lecture 
par INPUT#9,A$, vous aurez deux 
valeurs distinctes : 

MARIE et ANNIE 

Tout cela va justifier cette grande règle : 
Toujours WRITE #9 quand il y a des vir- 
gules de séparation ou quand une varia- 
ble chaîne risque de renfermer une vir- 
gule. WRITE #9 est donc une sécurité. 
Le seul avantage de PRINT #9 est un 
gain de deux octets (les deux guillemets), 
mais à condition de ne mettre qu'une 
seule valeur après le PRINT #9, de pré- 
férence une valeur numérique parce que 
ne risquant pas de renfermer une virgule. 
Et si on remplaçait les virgules par des 
points-virgules ? L'AMSTRAD CPC, qui 
possède le plus tolérant des Basic que 
l'auteur connaisse, acceptera cette 
ponctuation peu orthodoxe ; mais ne pre- 
nez pas cette habitude inutile car elle 
vous jouera de vilains tours sur d’autres 
micro-ordinateurs… 


NATURE DES VARIABLES 


C'est encore une souplesse du Basic 
AMSTRAD. À la lecture par INPUT #9, 
il se moque si telle donnée a été écrite 
en variable numérique ou chaîné. Exem- 
ple : on a enregistré 24,48", ''PAUL"". 
Si à la lecture on demande INPUT # 9,N1, 
N2,N3, on reçoit 24,48 et O 
(0=VAL('PAUL"}))}. Donc, INPUT#9 
d'une valeur numérique fait automatique- 
ment le VAL des caractères reçus. 

A présent, demandons INPUT #9,A$, 
B$,C$, on obtient ‘24’, ‘‘48'"" et 
‘’PAUL"”". Donc, le nombre 24 a été auto- 
matiquement transformé en STR$(24). 
Sympa, non ? 


LES CARACTERES D'EXTENSION 


Un fichier ASCII enregistré n’a pas de 
caractères d'extension ; contrairement 
aux fichiers ou programmes binaires 
(.BIN ou .COM) et aux programmes en 
Basic (.BAS). Il n'empêche que vous 
pouvez lui attribuer des ‘‘extensions”’ 
complètement ‘‘bidons’”, qui vous seront 
utiles pour mieux identifier l'origine d'un 
fichier ASCII, c'est-à-dire le programme 
qui l'a créé. Un exemple : Vous avez un 
programme Basic de gestion de fichiers 
Noms + Adresses + Téléphone. Vous 
avez un fichier distinct par département. 
L'extension sera .NAT, et vous lirez par 
CAT ISERE.NAT, LOIRET.NAT, etc. 
Dans le programme, on aura : 

INPUT "'Département:'"",FICHS$ 
OPENOUT (ou OPENIN)FICHS +" .NAT'’ 
Dans les caractères du nom d'extension, 
vous avez droit aux chiffres, par exem- 
ple .116 signifiant créé en novembre 
1986 ou le cent seizième jour de l’année. 
Tout est permis, mais à deux conditions : 
— ne pas utiliser plus de trois caractè- 
res ; 

— ne pas utiliser des noms réservés, à 
savoir BAS, BIN, BAK, COM, EXE, SYS. 
Par prudence, évitez des noms trop sou- 
vent utilisés par les logiciels du com- 
merce, péchant par manque d'imagina- 
tion. Il s'agit de DAT, DTA, TEX, TXT, 
SCR, SCN. 

Ces extensions bidons sont souvent bien 
pratiques. Supposons que vous désiriez, 
par manque de place sur disquette, tran- 
férer tous vos fichiers Nom, Adresse, 
Téléphone sur une disquette à part. Sous 
CP/M, il suffit de taper FILECOPY *.NAT. 
Et après cela ERA +.NAT. C'est rapide 
et sans risques d'erreurs. 


LE FAMEUX 
OPENOUT ‘‘’BIDON‘' 


Tout programme contenant des OPENIN 
ou OPENOUT doit commencer par cette 
ligne : 

OPENOUT ‘'BIDON'': 

MEMORY HIMEM - 1:CLOSEOUT 

En effet, à chaque ouverture de fichier, 
le CPC se crée un buffer de 4 kilo-octets 
en haut de la mémoire. Si à cet endoit, 
il y a déjà des variables en mémoire, il 
va les reloger 4 kilo-octets plus bas. 
Après la fermeture de fichier, il va les 
remettre là où elles étaient, c'est-à-dire 
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à partir du HIMEM (=HIGH MEMORY). 
C'est donc horriblement long ! Aussi 


nous allons tous d’abord abaisser le . 


HIMEM afin que nos variables ne soient 
plus déménagées à chaque OPENIN et 
OPENOUT, et ce en le fixant définitive- 
ment par MEMORY. A quelle adresse ? 
Juste au-dessous du buffer créé, d'où ce 
MEMORY HIMEM — 1. 


Note : Nous avons dit qu'il fallait com- 
mencer par cette ligne, mais il y a deux 
exceptions : 

— des REM (titres, etc.), 

— SYMBOL AFTER. Si vous le mettiez 
après un MEMORY, il y aurait plantage. 


UNE APPLICATION PRATIQUE 
(et utile... ) 


Vous êtes coutumiers de ces program- 
mes où l'on vous demande au début si 
vous voulez lire les instructions. La 
méthode banale consiste à joindre ce 
long texte au listing ; deux inconvénients 
à cela : une fastidieuse suite de PRINT 
et de LOCATE. Les lignes sont chargées 
en RAM et occupent de ce fait des kilo- 
octets, autant de moins pour l'exploita- 
tion du programme. 

Sur cassette, on ne peut guère faire autre- 
ment, mais avec des disquettes, il est 
beaucoup plus astucieux d'écrire ce long 
texte sous forme de fichier ASCII indé- 
pendant du programme. Si on veut lire 
ces instructions, ce fichier est lu et affi- 
ché à l'écran puis RETURN au pro- 
gramme. La taille maxi de ce (ou ces) 
fichiers ASCII est donc la place restante 
sur la face de disquette. Enorme ! 
Notre petit programme, baptisé ‘’BARA- 
TIN'”" (devinez pourquoi) a trois parties : 
— l'écriture-enregistrement du texte, 
— l'affichage du texte (module 45000), 
— la correction du texte, fautes d'ortho- 
graphe, centrage, etc. 

L'extension de ces fichiers sera .DOC. 


19 ‘ ECRITURE DIRECTE DE FICHIERS TEXT 


E 


20 ‘ 


our ce Fichier Ecran 
90000: M=E: MODE M 


50 IF M=2 THEN INE 0,20: INK 1,0:CLS 
100 LOCATE 1,10:INFUT "NOM DU FICHIER ( 


sans .DOC } "“,FIC$ 


110 LOCATE 5,13:FRINT'"a CREER , LIRE ou 
MODIFIER ?":TEX$="CLM":GOSUE 50000 


AMSTRAD CFE - Michel Archambault 
30 OFENOUT"E":MEMORY HIMEM -1i:CLOSEOUT 
40 MODE 1:LOCATE 4,10:FRINT "Quel MOCE p 
7" TEX$="12": GOSUE 


L'écriture du texte est on ne peut plus 
simple. Vous tapez votre phrase, vous la 
centrez en insérant des blancs à gauche, 
vous corrigez les fautes par les touches 
CLR ou DEL. Quand la phrase à l'écran 
vous plaît, ENTER. ‘‘C'est dans la 
boîte !’’. Phrase suivante, etc. 

Pour laisser des lignes blanches d'espa- 
cement, faites ENTER. 

En fin de ‘’page”’, tapez seulement la let- 
tre P, P comme PAUSE ou PAGE. cela 
provoque un CLS et vous remplissez la 
page d'écran suivante. 

En fin de texte, tapez la lettre Q, Q 
comme QUITTER. Cela fermera le fichier. 
Le BORDER est vert pour mieux centrer 
à l'écran. 

Remarquez qu'en ligne 250 nous utili- 
sons la commande LINE INPUT. Ainsi, 

la chaîne entrée au clavier pourra com- 
porter des virgules. 

Important : Si vous démarrez votre 
phrase plus loin que le début de ligne, 
positionnez-vous avez la barre d'espace- 
ment, surtout pas avec la touche curseur 
(ces ‘‘’blancs”’ ne seraient pas pris par le 
LINE INPUT) ! 

Petit raffinement : vous avez le choix 
entre MODE 1 et MODE 2. Ce MODE 
sera enregistré, donc rétabli automati- 
quement à la lecture. Si vous composez 
en MODE 2, on passe en caractères noirs 
sur fond bleu-ciel (plus net). 


La lecture du fichier (module 45000) 
peut se faire à l'écran ou sur imprimante. 
En option écran, chaque repère ‘’P’’ blo- 
que le programme par un CALL &BB0O6 
(attente d'une touche). Idem pour le 
repère final ‘‘Q''. 

En option imprimante, le WIDTH est 
fonction du MODE M enregistré afin de 
reproduire les mêmes sauts de lignes 
qu'à l'écran. Les CALL &BBO6 sont rem- 
placés par l'impression d'un trait horizon- 
tal. 

Il va de soi que les repères P, Q et la 


.":CALL 
240 EORDER 9 


250 


valeur de M ne sont ni affichés, ni impri- 
més ; seulement exécutés. 

Après sauvegarde du programme, faites 
DELETE — 550 et DELETE 50000 -— puis 
SAVE'LECTDOC"'',A. 

Un module utilitaire que vous pourrez 
joindre à vos programmes par 
MERGE''LECTDOC”. 


La correction de ces fichiers ‘’.DOC’’ 
(lignes 400 à 550) est très facile : cha- 
que enregistrement est affiché un à un 
à l'écran. S'il est correct, ENTER, sinon 
retapez-le (pensez à vous servir de SHIFT 
+ COPY) et ENTER. : 

Pour effacer une phrase, barre d'espace- 
ment et ENTER. 

Continuez à appuyer sur ENTER jusqu'à 
la fin du fichier. La sauvegarde de la ver- 
sion corrigée est ensuite automatique. 
On ne peut insérer un nouvel enregistre- 
ment, mais si besoin est, il vous suffira 
d’allonger le précédent ; d'abord par des 
blancs pour simuler un retour ligne. 
Les repères de MODE, P et Q apparais- 
sent ici à l'écran. Ils sont donc modifia- 
bles. 


Note : En ligne 430, nous chargeons le 
fichier dans un DIM A$(100). Cette 
valeur 100 est tout-à-fait arbitraire. 


CONCLUSION 


Pour les possesseurs de disquettes, 
notre module correction est certes bien 
moins puissant que le ED.COM de la dis- 
quette DOS (voir du même auteur ‘’PRO- 
GRAMMES UTILITAIRES POUR AMS- 
TRAD”, page 27), mais il est plus prati- 
que pour de petites retouches. 

Le programme ‘’BARATIN"" illustre la plu- 
part des recommandations mentionnées 
au cours de cet article. (Nous vous invi- 
tons à décortiquer le listing ligne par 
ligne.) C'est en outre un utilitaire à part 
entière, et ce n'est pas du baratin ! 


pause de bas de page":LOCATE 6,12:FRINT 
“ou Q pour quitter." 
230 LOCATE 12 


si 


BBO6: CLS 


E4:FRINT "Tapez une touche 


LINE INFUT"",4$ 


260 WRITE #9,A$ 
270 IF UFFERS$(A$)="Q" THEN 200 
280 IF UFFERS(AS)="F" THEN CLS 


290 
3700 
310 


GOTO 


250 


120 CLS:ON E GOSUB 200,45000, 400 

150 INE O,1:INÉ 1,24:MO0DE 1 E TOUCHE" 
140 END 320 CALL 
200 ‘ SAISIE du FICHIER ECRAN 320 RETURN 
210 OFENOUT FIC$+".DOC":PRINT #9,M 400 


220 


24 


LOCATE 6,8:FRINT" ENTREZ LES FHRASES 
DU FICHIER":LOCATE 6,10:FRINT'"ou F pour 


410 


CLOSEOUT: BORDER 1 
CLS: LOCATE 8,10: FRINT'ET MAINTENANT 
LA LECTURE. ":LOCATE 13,24: FRINT"'TAFEZ UN 


2BE06: CLS: GOSUB 45600 
“CORRECTIONS DE FICHIERS 


LOCATE 1, 
chaque chaine correcte": FRINT:FRINT "sin 


10: FRINT "Tapez ENTER pour 


on entrez la correction. Servez-vous":FR 

INT:FRINT "du SHIFT+COFY." 

420 LOCATE 13,24:FRINT "Tapez une Touche 

“"sCALL &HE06 
450 DIM A$(100):CLS: BORDER 9:1=0 
440 OFENIN FIC#+".DOC": INFUT#9,M: MODE M 
450 WHILE NOT EOF:1=I1+1 
460 INFUT#9,A$(L):FRINT A$(I) 

470 LINE INFUT "RS 

480 IF R$£:"" THEN AS(I)=R$ 

460 WEND:CLOSEIN 

900 OFENOUT FIC$# 

910 FOR J={ TO I: WRITEH9,A$(J):NEXT 
920 CLOSEOUT:EORDER 1 

930 CLS:LOCATE 17,10:FRINT "LECTURE" 
940 GOSUB 45000 

990 RETURN 

45000 AFFICHAGE FAR FAR FAGES D'ECRAN 
45010 OFENIN FIC$&+". DOC" 

9020 LOCATE 9,12: FRINT"'SUR ECRAN OÙ INF 
RIMANTE ©": TEXS="ETI":GOSUR 50000:CLS 
45020 INFUTHK9,M: MODE M:IF K=2 THEN WIDTH 

40%f 
45040 WHILE NOT EOF 


45050 INFUT#9,L$:ON E GOTO 45060, 45080 
45060 1F UFFERS(LS)="F" OR UFFERS(L$)="Q 
“ THEN CALL &BB06:CLS:GOTO 45100 

45070 FRINT L#:G0T0 45100 

45080 IF UFFERS(L$)="F" OR UFPERS$(L$)="Q 
“THEN FRINT#B, STRINGS (40#1-1, "-") :GOTO 
45100 

45090 PRINT #5,L$ 

45100 WEND 

45110 CLOSEIN 

45120 RETURN 

30000 ‘REPONSE À UN MENU 

50010 LT=LEN(TEX#) 

50020 LOCATE 15-LT,24:FRINT"Reponse ("; 
50030 FOR I=i TO LT-1 

50040 FRINT MIDS#(TEX$,1,1)5","32NEXT 
50050 PRINT RIGHTS (TEXS, 1) ; "9 "5 CHRS (154) 
: CHRS (243) ; CHR$ (207) 


— 50060 TEX$S=UFFERS(TEXS$) 
50070 R="":WHILE R$="":R#=INEEYS: WEND 


50080 R$S=UFFERS (R$) :EH=INSTR(TEXS,R#) 
50090 IF K=O THEN FRINT CHRS$ (7) 3; :GOTO 50 
070 

90100 RETURN 


INTERFACE TV 


rx 1390,00 F rrc 


CARACTERISTIQUE S TECHNIQUES 


16 chaînes PAL/SECAM à recherche automatique 
Prise Péritel pour CANAL + 
Equipée spécial moniteur AMSTRAD 


| REVENDEURS, CONTACTEZ-NOUS ! | 


A ——— ——— — € 


Ÿ BON DE COMMANDE 
Je désire recevoir 


| 
Article : quantité : prix total : | 

Participation aux frais de port : ajouter 50 F - prix total : 
Rss [ Ci-joint mon règlement par chèque : | 
DEIA [ Je règle contre remboursement à la livraison (frais en sus) | 

62, cours de l'Yser , Nom: Prénom _ 

33800 BORDEAUX Adresse : ; | 
Tél.: 56.92.91.78 | Ville : Code postal : l 
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DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP 65 LA - ANGLETERRE - Tél. + 44 291 257 80 


EN EXCLUSIVITÉ : DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS POUR AMSTRAD - SCHNEIDER 464/664/6128 


Formatez toutes vos disquettes 3” ordinaires en 416 Koctets 


TURBO a1 6 (175 FF port compris) 


Le super utilitaire acclamé par la presse britannique est désormais disponible en Français 
Compatible 464, 664, 6128 : 
FORMATEZ les disquettes standard AMSTRAD des lecteurs ordinaires standard AMSTRAD/SCHNEIDER 


AVEC 208 Koctets par face : 


Pour 175,00 FF (disquette 3’) vous recevez non seulement le SUPER FORMATEUR TURBO 416, mais aussi toute une gamme d'utilitaires inédits en France. 
Les 2 faces de la disquette regorgent de programmes (en Français) jamais vus ! Sélection très simple par menu ! Quelques-unes des innombrables options : 


1. TURBO 416 (super formateur) 2. Archivage Fichier Disc/K7 à 3000 bauds 
3. Cherche de données / Fichier maximum 25 caractères ! 4. Re-transtert K//Disc de l'option 2 
5. Cherche de données / disc - maximum 25 caractères ! 6. Transfert intégral fichiers disc/disc 
7. Générateur de menus 8. Copieur de disquettes (très, très costaud) 
9. Accélère les lecteurs de 20 % 10. Déplombeur 
11. Éditeur de CAT 12. Moniteur de disquette 
13. Éditeur de disquette 14. Listage ASCII écran/imprimante 
15. Plan d'occupation des fichiers 16. Lecteur en-tête K7 et disc 


et bien d'autres... 


TURBO 416, le SUPER COMPENDIUM de super utilitaires en FRANÇAIS ne vaut que 175 FF port compris 


DISCOVERY PLUS 464/664/6128 


Un prodige de programmation EN FRANÇAIS. Pour ceux qui ne peuvent pas s'offrir le luxe d'une interface de transfert, DISCOVERY PLUS est la solution ! 
Transfère PLUS de programmes protégés de K7 à disquette qu'aucun autre soft ! Contient 4 programmes pour transférer : 1. Les “Speedlock" - 2. Les 
“Sans en-tête” - 3. Les “Conventionnels” - 4. Les autres. ! Simple à utiliser ! Pas besoin de désassembleur, etc... ! PRIX port compris : seulement 150 FF 
(disque uniquement). 


SUPER TAPE 4000 crc 464 uniquement 


Le meilleur utilitaire de sauvegarde K7/K7 sur le marché ! Sauvegarde automatique. 10 vitesses de sauvegarde au choix ! Entièrement en FRANÇAIS. 
Cassette : 90,00 FF* - Disque : 120,00 FF (port compris). 


CADEAU ! Commandez les 3 progiciels ci-dessus et nous vous offrons gratuitement en CADEAU le superbe progiciel PRO SPRITE (LA FABRIQUE DE 
LUTINS) valant normalement 125 FF ! Créez et animez des lutins que vous intégrerez à vos programmes personnels ! Un programme de démonstration 
est inclus pour vous assister. Documentation en Français. 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOWNP 6 SLA - ANGLETERRE - Téléphone : + 44 - 291 257 80 


ENVOI IMMÉDIAT LE JOUR MÊME PAR AVION dans le monde entier 
(hors Europe ajouter 10 FF par titre S.V. P.) 


RÈGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs. 
.EUROCHEQUE en livres sterling (vous faites la conversion). 
CHEQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion). 


Rédiger les mandats, chèques , etc... à l'ordre de DUCHET Computers. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80 de 8h à 19h. 


Ces progiciels en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Ils sont disponibles en exclusivité chez Duchet Computers. 
Leur diffusion ou reproduction commerciale, même partielle, sous quelque titre ou forme que ce soit et par qui que ce soit est formellement 
interdite dans tout pays, Suisse comprise, sans l'autorisation préalable écrite de DUCHET COMPUTERS & SIREN SOFTWARE. 


MIRAGE IMAGER versionT URB O 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 464/664 : 
seulement450 FF 


Port compris 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES 
RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 ou 


DISQUETTE / DISQUETTE de tout programme protégé ou non jusqu'à 128 Ko (64 Ko sur 464/664) 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) 

TOOLKIT incorporé qui affiche les adresses, INK, PEN et autres détails des programmes 
et écrans, permettant un bidouillage acharné et intensif. 

Grâce au TOOLKIT, contemplez instantanément les résultats des bidouillages effectués ! 
MODE 64 K ou 128 K avec les CPC 6128 

Se branche en 2 secondes ! 

Extrêmement simple à utiliser : géré par menus et l'on presse UN SEUL BOUTON pour 


transterer/sauvegarder/recharger. 

Ne prend aucune place en RAM, n'est donc pas détectable par l'ordinateur. 
Très amical, détecte les erreurs de l'opérateur 

8K RAM et 8K ROM incorporés 

Compresse afin d'utiliser un espace minimum sur disque ou cassette 
Sauvegarde en un seul bloc (pratique pour archivage) 

Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 
Pour usage personnel 

Comporte un bus d'extension pour raccorder d'autres périphériques 

Stoppez un jeu à n'importe quel moment, sauvegardez et reprenez-le au même endroit 
TOUS les programmes transférés fonctionnent ! 


VENTE PAR CORRESPONDANCE - Envoyez votre commande (en Français) directement à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTOW NP6 SLA - ANGLETERRE - Téléphone : +44 - 291 257 80 


ENVOI IMMEDIAT LE JOUR MÊME PAR AVION dans le Monde entier (Hors Europe ajouter 25 FF S.V.P.) 


REGLEMENT PAR : 


MANDAT POSTE INTERNATIONAL : 
CPC464/664 : 450 FF 
CPC 6128 : 500 FF 


REDIGER LES MANDATS, etc. à L'ORDRE DE DUCHET Computers. 


EUROCHEQUE ou CHEQUE BANCAIRE en livres sterling 
compensable en Angleterre 

CPC464/664 : 49,95 livres sterling 

CPC 6128 : 54,45 livres sterling. 


Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 


Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80. 


ÉDITEUR DE LAN 


M 


1) ie 


nes se présentent souvent sous forme de listing d'assemblage 


L' programmes en langage machine publiés dans les magazi- 


comportant les mnémoniques du code source et le code objet en 
hexadécimal. Pour entrer un tel programme, il n’est pas nécessaire, 
ni même souhaitable, d'utiliser un assembleur. 
Le moyen classique est un programme de chargement en Basic. Le 
code machine, rangé en DATA, est lu puis implanté par les comman- 
des READ et POKE incluses dans une boucle FOR-NEXT. La méthode 
servira encore à charger le programme utilitaire dont vous allez 


vous doter. 


BUT ET DESCRIPTION 


L'éditeur de langage machine (ELM) ins- 
crit directement en mémoire le code 
entré en hexadécimal. L'étape Basic 
intermédiaire est évitée. La corvée de cla- 
vier subsiste, mais vous l'effectuerez 
dans de meilleures conditions de confort 
et de sécurité. 

Le programme, écrit en langage machine, 
est logé dans la mémoire d'écran de 
façon à n’occuper que les trois lignes du 
bas. Toute la mémoire vive à la disposi- 
tion de l'utilisateur est ainsi laissée libre. 
Le programme fait appel à de nombreu- 
ses routines du système dont EDIT nor- 
malement utilisée par le Basic. Cette der- 
nière est la seule dont le point d'entrée 
soit différent sur les trois CPC (&BD3A 
pour le 464, &BD5B pour le 664 et 
&BD5E pour le 6128). Les deux adres- 
ses concernées sont &D7BC et &F755. 
Le programme de chargement y inscrit 
&5B pour le 664 ou &SE pour le 6128. 
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MODE D'EMPLOI 


Après le choix du mode, l'inscription du 
code en mémoire (lignes 40-50) dure une 
trentaine de secondes. Le programme 
est adapté au système utilisé puis l'ELM 
est appelé (CALL&CFOO). 

Un menu apparaît, offrant sept options 
qui seront sélectionnées par leur numéro. 
L'option 7 fait sortir du programme, 
retourner au Basic. Vous pouvez l'es- 
sayer dès maintenant et sauvegarder le 
code binaire par : 


CLS:SAVE''ELM'",B,&CFO0,&3120 

Ultérieurement, les commandes de char- 
gement et de lancement devront être 
précédées du mode d'affichage choisi. 


Exemple : MODE 2 : 
LOAD''ELM'":CALL&CFOO 

Pour le moment, relancez le programme 
avec CALL&CFOO. 


André CHENIERE 
RE PES 


OPTION 1 - EDITION 


Elle permet l'introduction d’un nouveau 
bloc de code, ou l'intervention sur le bloc 
en mémoire défini par les adresses de 
début et de fin. 

A la demande du programme, tapez 
l'adresse de début, en hexadécimal. sans 
symbole &, suivie de RETURN. Entrer 
l'adresse de fin de la même façon ou, s'il 
s'agit d'une nouvelle entrée, appuyez 
simplement sur RETURN. 

Vous pouvez alors entrer le nouveau 
code ou modifier le code affiché. 
Seuls les chiffres hexadécimaux sont 
acceptés. Le curseur passe automatique- 
ment à la position suivante après la 
frappe de deux chiffres valides. Le carac- 
tère ASCII correspondant, s’il est afficha- 
ble, apparaît à droite. 

Les lignes sont de huit ou seize octets 
selon le mode en vigueur. Au passage à 
la ligne suivante, une nouvelle adresse 
de base est affichée. 

L'éditeur est du type pleine page. Le cur- 
seur se déplace dans les quatre direc- 
tions à l’aide des flèches, dans les limi- 
tes du bloc de code. 

Après l'entrée d’un premier chiffre hexa, 
le programme en exige un second avant 
d'accepter toute commande. 

Ainsi, si le premier est erroné, il faut taper 
un deuxième chiffre pour pouvoir reve- 
nir en arrière et corriger. 

La touche COPY, agissant comme bas- 
cule, permet d'agir indifféremment sur le 
code hexadécimal ou sur sa représenta- 


IGAGE MACHINE 


tion ASCII. 

Dans ce dernier cas, les caractères 
accessibles au clavier, y compris les 
caractères de contrôle, sont acceptés à 
l'exception de DEL et £ (codes &7F et 
A4). Les caractères spéciaux AMSTRAD 
doivent être entrés sous forme hexadé- 
cimale. 


Les indications de la ligne supérieure ont 
la signification suivante : 


COMPTAFACIL 


Progiciel de comptabilité générale utilisé depuis 1982 
par des PME, agriculteurs, artisants et libéraux. De la 
saisie au bilan, 8 journaux, 900 comptes (7 chiffres), 
lettrage. Edition des comptes, journaux, grand livre, 
balance, compte de résultat et bilan (provisoire ou défi- 
nitif au choix). 


Fonctionne sur AMSTRAD sous CPM 2.2 ou 3.0 avec 
2 lecteurs, version pour 464, 664, 6128 et PCW 8256. 
Fonctionne sur IBM PC et compatibles (MSDOS) 


Démo automatique sur PCW 
et compatibles. 
Disquettes de démonstration. 


B.P. n° 2 St-Philibert 
56470 La Trinité-sur-Mer 
97 55 09 74 


MER 


Langage Machine 


rs 


LISTING 1 


19 CLS:FRINT'Sauvegarde apres lancement et sortie" 


15 
20 
25 
30 


35 


FRINT"CLS: SAVE"; CHRS (34) ; "ELM" 5; CHR$ (34) ; ",B,2CEEO,#7120" 
PRINT: PRINT"Lancement ulterieur":PRINT"'MODE (1 ou =):"; 
FRINT"LOAD"; CHRS$ (34) ; "ELM'" 3; CHRS$ (34) ; ": CALL SCFO0" 
A$="Mode* (1 ou 2)":GOSUR B0:1F Ri1 OR R:2 THEN 30 

MODE R:A=SCEE0: :FOR 1=1 TO 7:F=A+811F:S=0:L=1#100 


40 
45 
50 


ë0 


70 
Bii 
85 
90 
190 
195 
110 
115 
120 
125 
170 
135 
140 
145 
i150 
155 
160 
165 
170 


[175 


ës A$="Tapez 1, 
IF Ri+1 THEN E=iSEB-R#(R=T) : FOFE &D7BC,E:PFOHE 2F795,H 
75 CALL SCFOU:EN 

LOCATE 1,7:FRINT CHR£&(75 3: A9 

RS=INEEYS: IF RS=""THEN ES ELSE R=VAL(R#) : RETURN 
FRINT 


DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


WHILE A:=F:FOR A=A TO A+1S5:READ C#:E=VAL("&"4+C) 
S=S+E+65536%(S+H:72767):FOFE A,:NEXT:READ D$ 

IF S<: 
FRINT"1.CFC464": PRINT"2,CPC&GA": FRINT"3.CFC6128" 


:VAL("&"4DS) THEN 90 ELSE L=L+5:WEND: A=A+R6EO: NEXT 


Z ou S":GOSUE B0:IF Rii OR R:3 THEN 65 


CHR$ (7); "Erreur ligne";L:END 

96,29,17,10,258,23,4E,6F.6D,3F,3A.64,44,85,82,75,090D 
74,1:F,24,92,46,69,6E.1F,24,92,14,00,4F,00,15,8C,090E 
21,16,01,CD,75,BE,21,C0,F7,CD,86,F7,3E,A4,CD,5Â,116E 
EBB,CD,86,F7,CD,11,HC,21,E0,CE,01,027,00,1F,28,01,1838 
09,11,F5,C6,ED,H0,CD,R6,CF,21,9E,E7,CD,86,F7,CD, 2259 
06,BB,D6,20,FE,01,28,F7,FE,07,20,06,21,FA,CE,C3,7A85 | 
86,F7,30,EB,4F,FE,03,D2,3D,D7,FE,02,20,0A,CD,2E,2£278 
BD,230,05,CD,F9,F7,18,D7,CD,98,E7,21,EC,CE,CD,E3,2CHD 
D7,28,C6,:0,05,CD,F9,F7,18,EE,CD,44,E7,CD,98,E7,48HE 
21,F4,CE,CD,B3,D7,:8,18,20,0F,79,FE,02,28,14,CD, 4DFC 
25,F7,CD,62,F7,28,9F,18,18,D5,2%A,E0,C6,EB,ED,52,5/04 
D1,:0,05,CD,F9,F7,18,D5,CD,2A,F7,79,FE,01,02,E0, 60BC 
D6,CD,A7,CF,C3,29,CF,21,EF,EF,CD,86,F7,01,00, 00, 6ÿDA 
CD,E0,E6,C2,E0,FE,3E,01,CD,B4,HE,21,92,F7,CD,66, 7486 
F7,AF,06,0D,21,E0,Cé6,77,25,10,FC,C3,F4,BE,CD,F6,7DaAi 
CF,ED,SEB,EZ,Cé6,CD,6E,DF,0E,00,3E,20,C03,88,DF,2€,863E 
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— Det F sont les adresses de début et 
de fin du bloc, 

— L'est la longueur du bloc (nombre 
d'octets), 

— S est la somme de contrôle dont nous 
reparlerons. 

Les commandes disponibles sont : 

— ESC permet le retour au menu, 

— CTRL-S affiche une somme de 
contrôle (en mode hexa seulement), 

— DEL supprime le code sous le curseur. 
Ce code est écrasé par le décalage du 
reste du bloc vers le bas de la mémoire, 
— CLR met en mode insertion. Un 
espace est créé à l'emplacement pointé 
par le curseur, le reste du bloc étant 
décalé vers le haut. DEL supprime l'es- 
pace et fait sortir de ce mode. 

— COPY bascule HEXA/ASCII. 
L'image de la zone mémoire apparaît à 
l'écran avec défilement possible vers le 
haut ou vers le bas. Le fenêtre a été 
volontairement limitée à cinq lignes en 
raison de la lenteur de l'affichage à 
l'écran. Aussi est-il préférable d’avoir le 
curseur sur les lignes du bas lorsque l'on 
procède à une insertion où à une sup- 
pression. 

Grâce aux options SAVE et LOAD, un 
travail de saisie au clavier peut être inter- 
rompu, sauvegardé, puis repris plus tard 
facilement. 


OPTION 2 - IMPRESSION 


Cette option n’est utilisable que si l'im- 
primante est ‘‘’on line’”. Elle assure la 
reproduction sur papier du contenu d'une 
zone en mémoire dont l'adresse de fin 
est obligatoirement spécifiée. Le vidage 
(en anglais : dump) est imprimé en hexa- 
décimal à raison de 8 ou 16 octets par 
ligne selon le mode d'affichage. 

Une somme de contrôle peut être impri- 
mée en fin de ligne. Après 48 lignes, une 
pause permet de changer la feuille de 
papier. L'action sur une touche quelcon- 
que supprime cette pause. |l y a retour 
au menu en fin de bloc. L'impression est 
arrêtée puis reprise avant la fin par la 
frappe d'une touche. Lors de cette 
pause, elle est stoppée définitivement 
par RETURN. 


OPTION 3 - DIR 


Elle affiche le répertoire de la disquette. 
Appuyer sur une touche pour le retour 
au menu. 


OPTION 4 - SAVE 


Cette option n'est utilisable que si un 
bloc de code est défini (longueur L non 
nulle). Pour la sauvegarde, il faut, et il 
suffit, d'entrer un nom valide. 


OPTION 5 - LOAD 


Entrer le nom du fichier binaire et char- 


ger. 

REMARQUE : Pour les trois options DIR, 
SAVE et LOAD, l'action sur une touche 
assure le retour au menu après un cata- 
logue ou une erreur. 

Le chargement ou la sauvegarde sont de 
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180 
185 
200 
205 
210 
215 
220 
‘225 
230 


L=4 
235 


240 
245 
250 
2535 
260 
265 
270 
279 
280 
285 
300 
305 
310 
315 
320 
325 
330 
235 
340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
400 
405 
410 
415 
‘420 
425 
430 
435 
440 
445 
450 
455 
480 
465 
| 470 
475 
480 
485 
500 
905 
910 
915 
920 


EnE 
di 


950 


929 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


01,E5,7D,CD,B4,BB,E1,CD,75,BE,CD,6E,DF,AF,CS,E4,90FE 
BB,23E,0A,CD,88,DF,%E,O0D,C3,88,DF,2E, D4, 07,06, 00, 97E0 
21,EA, C6, 34,CD,98,E7,21,87,F7,CD,F4,D7,20,04,21,08FD 
EB,Cé6,24,01,00,00,CD,0C,E7,F5,2A,EB,Cé6, 2,20, 1C,0FFC 
CD, DA, CF, CD, DA, CF, CD, DA, CF, 5A,F5,C6,E9, 26,03, 0C, 1A43 
18,EE,ED, 53,E4, Ce, CD,D2,EF,CD,6E,DF,CD,F1,CF,F1,2659 
DA, 26, CF,CD,EE,F6,CD,09,BB,30,08,CD,06,FRB,FE,0D, 2F3E 
CA, 26,CF;78,FE, 30, 20, BE, CD, 06, BB, 18, B6, 20,09, CD, 3600 
eC, BB, AF,DF,FE,CF,18,23,FE,04,20,35,CD,B6,CF,CD, 4010 
44,F7,CA,29,CF,11,00,C7,CD,77,EC, 20,18,C5,D5,EB, 48B2 
CD,83,EC,CD,7A,BC,D1,CD,44,E7,ER,C1,09,2B,EB, CD, 5222 
24,F7,C3,A1,CF,CD,7D,BC,CD,F9,F7,CD,06,BR,C7,29,SDB3 
CF,FE,05,C2,E0, DE, 2A,E8,Cé,7C,B5,CA,53,CF, CD, 44, 680E 
F7,CA,29,CF,ED,5B,E0,C6,D5,CD,8C, BC, D1,2A,E8, C6, 7345 
EB,3€,02,CD,98, EC, 20,06,CD,8F, BC, C3,29,CF, CD, 92, 7BF0 
BC, 18,C5,CD,86,F7,21,00,C7, 36,00, CD, A, BD, 7E. A7, BE 
C8, 11, 00,00, 7E, A7, 28,07, CD, 6D,E7,D8,23,18,F5,F6, BE2F 
FF,C9,ED,4%,F1,C6,CD,78,BB,22,EF, Co, 2A,E2,Cé, 2,959 
F3,Cé,C9,2A,F3,Cé,22,E2,Cé, 2A,EF, C6, CD, 75,BR,ED, AOA1 
4B,F1,C6,C9,CD,86,F7,CD,06,BB,E6,DF,FE, 4F,C9,00, AB1F 
3E,01,32,F6, C6, CD, B4,BB,21,EA,E7, CD, BE, CF, ÎE, 00, UBDS 
DF,F7,E7,230,72,21,CF,DF,CD, AE, DF, 28,64, 30,05,CD,11F1 
F9,F7,18,F1,7B,FE,2B,20,F6,32,F9,C6,26,05,CD, 9A, 1H54 
DF,21,DE,DF,01,41,44,%A,9F,A8,89,28,06,21,EF,DF, 22D4 
01,C1,CA, CD, AE, DF,28,2F,30,05,CD,F9,F7,18,E2,7B, 2E88 
B9,38,F7,88,20,F4,32,FA, C6, 26,0D,CD,9A,DF,CD,C4, 3548 
DF,DF,F7,FF,30,21,EB,CD,49,E7,21,FF,11,22,E6,C6, 3F34 
CD,A7,CF,21,F6,EF,CD,F4,D7,28,06,FE,4E, 28,08, 18,47D7 
F2,CD,C4,DF,DF,FA,FF,AF,32,FB,C6,C3,26,CF,7A,CD,S3AF 
73,DF,7B,FS,E6,F0,1F,1F,1F,1F,CD,80,DF,F1,E6,0F,SCDS 
EE, 50,FE, 24,26,02,C6,07,21,EA,C6,CB,46,20,03,C3,63FA 
SA, BB, CD, 2€, BD, 38,FB,C3,2B, BD,2E,01,E5,3E,01,CD,6BCS 
B4,BB,E1,CD,75,BB,CD,72,DF,3E,00,C3,B4,BB,ES,21, /546 
06, 10,CD,75,BB,E1,CD, 3,07, C8, DB, 7A,47,28,02, 57, 7E13 
C9,F6,FF,C9,21,F9,C6,56,2%,4E,21,00,10,5D,C9, 50, 8SE8 
69,72,74,65,2F; 20:30, 20,20, 32,37, 34, 20,94, 53,65, BAVE 
83,74,65,75,72,3F,20,24,31,2D,34,29,24,20,94,52,B8FSA 
65,63,74,65, 75,72, 3,20, 43,31,2D,43,29,2A,20,94,9440 
CD, D2, D7, CD,0C,E7,28,0D,CD,EE,F6,78,FE, 05, 28,05, 08D4 
CD, F1, CF, 18,EE, 3€, 20, CD, 5A, BB, CD, SA, BE, 34, F6, C6, 127F 
81,CD,6F,BB,3E, 14,CD,5A,BB,C3,E3,D7,CD,CE, CF, 2A, 1CEC 
Eb,C6,A7,ED,52,D8,:4,F5,Cé,89,C8,14,F5,CD,72,DF, 2744 
F1,21,EA,Cé6,CE,46,20,03,CD,55,E7,3€,20,CD,88,DF, 2FDE 
0C, 123,18,DB,CD,D2,D7,CD,0C,E7,28,03,C3,E3,D/,ED, :8C8 
53,E4,C6,C9,26,03,CD,DF,CF,21,E0,C6,06,04, 73,27, 4099 
72,23,10, FA,C9,C5,D5,47,CD,78,8B,E5,24,F6,C6,81,4A3E 
CD,6F,BE,78,CD,5D,BB,E1,Di,C1,C2,75,BE,CS,FE, b1,551C 
28,02, D6,20,4F, EE, 30,FE, 04, 28,06, C6,89,FE, FA, 38, SC7E 
15,06, 04, CB, 27,UB, 27,08, 27,CB,27,CB,27,CB, 13,CB3 6200 
12,28,03,10,F6,79,01,09,69,26,10,C2,75,BB, 14,00, 6902 
4F,04,14,00,31,2E,45,64,69,74,69,6F,6E, OD, DA, 32, 6CE9 
2E,49,6D,70,72,65,73,73,69,6F,6E, 0D,0A,23,2E,44,71FC 
49,52, 0D,0A, 54, 2E, 4C,4F,41,44,0D,0A,35,2E,53,41,753E 
S6,45,0D,04,36,2E, 52,2F,57,20, 64,69,73,71,75,65,79D7 
OD,0A,37,2E, 53,6, 72,74, 69,E5,00, 54,52, 4B, TA, 20, 7EAO 
20,20, 20,53,43,54,BA, 6C,C5, 07,00, 00,00, 00,00,00,81DC 
79,47,20,06,CD,72,F7,CA,F9,F7,0D,C5,06,0%, A7, 20,07D8 
04,3, F7,C6,47,3E,08, CD, 5A, BE, 10,FE,C1,CD,FE,F6; 10CF 
78,20, C0,47,C3,24,E7,CD,72,F7,CA,F9,F7,CD,0D,F7, 1B29 
3E,0B, CD, SA, BB, 2A,E4,C6,47,ED,52,22,E4,Cé6,78,3C, 238€ 
co, 47,CD,D2,D7,3E,01,32,EF,C6,C2,37,E7,0C,C5,3A, 2C1D 
F5,C6,06,03,B9, 20,04, 3A,F7,C6,47,3E,09,CD,5A,BB, 3325 
10,FEB,C1,CD,E0,F6,18,21,CD,EE,F6,D5,CD,62,F7,28,3DAI 
07,CD,75,F7,D1,30,06,CD,0D,F7,C3,34,E7, 2A,E4,C6, 4667), 


3 DATA 
DATA 
3 DATA 
DATA 
dot DATA 
DATA 
3 DATA 
DATA 
à DATA 
DATA 
3 DATA 
DATA 
) DATA 
DATA 
à DATA 
DATA 
30 DATA 
DATA 
DATA 
DATA 
» DATA 
DATA 
DATA 
DATA 
) DATA 
DATA 
ù DATA 
DATA 
2 DATA 
DATA 
à DATA 
DATA 
7204 DATA 
DATA 
:Q DATA 
DATA 
» DATA 
DATA 
3) DATA 
DATA 
> DATA 
DATA 
A DATA 
DATA 
j) DATA 
3 DATA 


19,22,E4, C6, 3€, 0, CD, SA, BB, 78,FE,05, 28,05, CD, D2, 4DED 
D7,18,09,05,CD, D2,D7,3E,05,22,EF, C6, CD, 7B,F7,DA, 5673 
3727, CD,0C,E7,C3,E3, D7, CD, 62,F7, 20,07, AF, 22, EC, SFEB 


Cé,C3,F9,F7,CD,7B,F7,C5,44,4D,03,19,54,5D,13,ED,68C3 
B8,CD, 1E,F7,C1,CD,E0,E6,CD,D2,D7,3E,20,CD,5A,BB, 7367 
CD,5A,BB,CD,55,E7,C3;E3,D7,CD,69,F7,DA,F9,F7,CD,7F93 
7B,F7,C5,44,4D,03,62,6B,23,ED,E0,CD,25,F7,C1,C3,8858 
E0,E6, C5, 2A,E0, Cé,ED,4B,E4,C6,11,00,00,E5,A7,ED,921F 
42,E1,28,09,7E,83,5F,30,01, 14,23,18,F0,C1,C9,0C, 97D9 
14,00,4F,04,08,8C,0C,53,61,76,65,23F,20,6F,2F,EE, 9C60 
24LE4, C6 ,23, 22,4, C6, SA, F5, C6, 9, C0, 0€, 00, 04, 2A,076D 
E2,Cé,24,FS,C6,5F,16,00,19,22,E2,C6,AF,C9,2A,E4,0FE8 
Cb,2B,22,E4,C6,79,3C,C0,3A,F5,C6,4F,0D,05,2A,E2,177C 
C6, 2A,FS,C6,5F,16,00,A7,ED,52,22,E2,C6,C9,ED,5B, 206D 
Eé, Ce, 13,18,05,ED,5E,E6, Cé, 1B,ED,53,E6, Cb, 26, 0A, 2874 
CD, DF,CF, 2A,E0,C6,EB,23,47,ED,52,22,E8,C6,EB, 26, 3294 
13,C7,DF,CF,CD,98,E7,21,E6,CE, CD, 86,F7,06,00,21,3BAA 
00,C7,E5,70,CD, 3A; BD, 7E,A7,28,04,04,23,18,F8,E1,42F3 
BO,C9, 24,6, Cé,23,7C,B5,C9,2A,E4,C6,ED,5B,E0,Cé, 4D21 
18, 10,2A,E0,C6, ED, 5B,E2,Cé6,18,07,2A,E6,C6,ED,5B,5546 
E4,C6,47,ED,52,C9,7E,E6,7F,CD,5A,BB,7E,17,23,30,5E4C 
F5,C9,14,00,4F,00,00,0C,44,3A,2E, 2€, 2E, 2E, 20, 46,621B 
3A,2E, 2E, 2E, 2E, 20, 20, 20, 40, 3D, 2E, 2E, 2E, 2E, 20, 20,64EE 
20,53, 3D,2E,2E, 2E,4E,53,6F,6D,6D,65,20,6F,2F,EE, 6A83 
1C,00,0E,0€, 1D,0E,0E,1C,01,00,00,45,64,69,74,65, 6CFC 
75,72,20, 40, 61,6E,67,61,67,65,20,4D,61,63,68,69,72B4 
6E,65, 20,20, 92,20, 43,68,65,6E,69,65,72,65,20,31,77ED 
39,38, 36, 14,00, 4F,00,14,8C,3E,07,C3, 5A, EB,00, 00, 7BBA 
CD. CE, CF, 2€, 02, 32, ED, Cé, SA, EC, Cé, A7, C4, B8,EF , CD, OA2A 
D2,D7,3A,EE,Cé,47,28,07,3A,F6,C6,81,CD,6F,BB,CD, 13D2 
8A, BE, CD, 8D,BE,CD,09,BB,30,F5,F5,CD,E3,D7,F1,2A,1E79 
EC, Cé,CB,4C,CA,C3,FF,CB,45,20,4F,FE,FC, 20,05, AF,281B 
32,EE, Cb,09,FE,F2,20,05,CD,E0,EE, 18,C2,FE, FO, 20,2262 
05,CD,07,EF,18,E9,CD,7B,F7,38,2D,CD,69,F7,38,5E, 3A72 
FELF3, 20,05, CD, 2D,EF, 18, 06,FE, F1, 20,05, CD, 48,EF 3 4747 
18,9D,21,F8,C6,CB,46,20,1F,FE, 10,20,0D, CD, 62,F7, 4ABC 
28,30, 2E,01,22,EC,Cé,C3,EB,FE,FE, 7F,20,0A,AF,32,5244 
EC, Cé,CD,B9,EF,C3,EF,FE, FE, E0,20,0B,3A,EE, Cé, EE, 5E00 
01,32,EE,Cé,CS,EF,FE, 21,F8,C6,CB,46,28,05,CD,7B,66FC 
F7,38,0B,21,EE,Cé,CB,46,28,10,FE, 7F,38,06,CD,F9,6ED5 
F7,C3,EF,FE,5F,CD,73,DF,18,28,FE,13,20,12,21,F8,779%6 
C6, CB, 46,2 20,E9,CD,D2,EF,26, 1C, CD, DF,CF,C3,EF,FE, 8271 
11200, 00, CD, 6D,E7, 38, Dé, CD, 54, BE, 21, ED, Ce, 39, C2, BASE 
EF,FE, 2A,E4,C6,73,78B,CD,55,E7,3E, 20,CD, 54,BB,0C, 9362 
CD, 7B,F7,20,02,CD,1E,F7,CD,E0,F6,C2,E3,FE,CD,F1,9EBA 
CF, CD,69,EF,C3,E0,FE, 66, Cé6,07,4E,C6,07,00, 00,00, A69D 


OR R:3 


15 Ag="iMode; 1 ou 
:7 THEN 10 

20 MODE R:LOGD* 

320 PRINT"1.CFC464" 

"T, CPC61:8" 

40 A$= “Tapez 1, 2 ou 3":GO0SUB 70:IF Ril 


S0 IF R<: 
K:POKE &F755,K 

&0 CALL SCFO0:END 

70 LOCATE 1,7:FRINT'R";A$ 

BO R£=INFEVS: IF R$=""THEN 80 ELSE R=VAL( 
R$) 2: RETURN 


- 
LISTING 2 


£":GOSUR 7: 
ELM.RIN" 


sFRINT"2.CFCéëe4": FRINT 


THEN 40 
1 THEN K=&85B-R%(R= 


2):FOFE $D7EBC 


type binaire. L'extension du nom est 
facultative. On la précisera en cas d'am- 
biguïté entre les fichiers existant sur le 
disque. 


OPTION 6 - R/W DISQUE 


Cette option permet la lecture d’un sec- 
teur du disque et sa réécriture éventuelle 
après modification. 

Les numéros de piste et de secteur 
seront entrés en hexadécimal. Le secteur 
lu est copié dans un buffer situé en 
&1000-1FFF dont l'image apparaît à 
l'écran. Attention, le code existant entre 
ces adresses est écrasé. 

Les commandes d'édition sont utilisables 
à l'exception de CLR, DEL et CTRL-S 
(insertion, suppression, somme de 
contrôle). 

Avant le retour au menu par ESC, la ré- 
écriture du secteur est proposée. Répon- 
dre obligatoirement par ‘’O''ui ou par 
“’N''on. 


SOMME DE CONTROLE 


Cette fonction n'est activée qu'avec l'en- 
trée du code hexadécimal en option édi- 
tion. 

La commande CTRL-S actionne une rou- 
tine qui calcule la somme, sur deux 
octets, de toutes les valeurs en mémoire 
depuis le début du bloc jusqu'à celle pré- 
cédant le curseur (incluse). 

Si le résultat dépasse FFFF, la retenue est 
ignorée. 

Le nombre est affiché en hexadécimal. 
Il suffit de le comparer à un nombre que 
l'on sait exact. La non-concordance indi- 
que une erreur. 

La fiabilité est très grande mais pas abso- 
lue (il peut se produire une inversion ou 
deux erreurs peuvent s'annuler mutuel- 
lement). 

En option impression, une somme de 
contrôle, toujours calculée depuis le 
début du bloc, peut être imprimée en fin 
de ligne de 8 ou 16 octets. 


PRECAUTIONS 


Le code entré au clavier est inscrit direc- 
tement à l'emplacement prévu, sans pas- 
ser par une mémoire tampon intermé- 
diaire. 

Le programme peut intervenir dans toute 
la mémoire vive (de O0 à FFFF). 
Certaines sécurités sont incluses mais il 
convient de faire attention aux emplace- 
ments utilisés par le système (00-3F, 
A680-BFFF) et à l'ELM lui-même dans la 
mémoire d'écran (à partir de &C6EO). 
Surveillez l'adresse de fin pour les inter- 
férences possibles avec d’autres valeurs 
à préserver. L'ancien contenu de cet 
emplacement est perdu lors d'un ajout, 
mais aussi dès que le mode insertion est 
activé. Dans ce cas, DEL ne rétablit pas 
la valeur initiale. Quand vous revenez au 
Basic, ne changez pas le mode d'affi- 
chage ; effacez la fenêtre d'écran utili- 
sable par CLS. 

Si la mémoire d'écran n'est pas réinitia- 
lisée par vos manipulations, l'ELM sera 
toujours disponible avec CALL&CFOO. 
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LECTEUR D" 1/4 


CPC464 - CPC664 - CPC6128 


MULTI-5"1/4".:. 3007 


Accéder à toute la bibliothèque CP/M éditée sur 5'’ 1/4! 
Lire: KayPro Il, TRS80-3, TRS80-4, Zenith 100, IBM-PC CP/M86, Hector HRX, 
Lynx 128, AMPRO, NCR, Le SharpMZ800, NewBrain, etc. ! 


©) 29 / utilitaire de formattage ®) f TTC 
Lecteur 51/4 : 

(LES FORMATTEURS)IM 

Formatter: une disquette vierge -— lisible par les marques ci-dessus. 


compatible 
tm Lecteur 5” 1/4 f TTC 
O] Er JASMIN AM5D + - 1 M 

AMSDOS et CP/M 22 


Stocker 800K octets & Doubler la capacité du DiRectory! 
Lecteur 80pistes, DFDD, 96tpi.. 


T-CYSTEME" "760" 


Un puissant système d'exploitation icelämé: par BUIE !! 100 Utilitaires! 
Un SED Z80 avancé, performant, remplacant CP/M v2.2, mais compatible à 
100% ! "ZCPR3"THE MANUAL -livre de 350pgs... 250f ttc 


(Oo A LUTTE AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et AMSDOS sont des marques déposées d'AMSTRAD.  CP/M est une marque déposée de Digital Research 
JASMIN AM-5D est une marque déposée de T.R.A.N. sarl. 


BON DE COMMANDE « \WILD WEST », 84760 St-Martin de la Brasque. Tél. : 90.77.61.36 


Je règle par Désignation des articles demandés 
Chèque Bancaire CCP. 


PRENOM : 


ADRESSE : DEMANDE DE DOCUMENTATION 
Je possède un micro de type 


Frais de port gratuit 
Je joins 3 timbres à 2,20 F frais d'envoi. TOTAL. TTC 25m resserre F. 


INITIATION A 


écrit avec ASM. Les habitués de l’assembleur savent combien il est fastidieux de 


L: mois dernier nous avons vu un exemple simple de programme en assembleur 


toujours écrire les mêmes séquences d'instructions. Il serait donc très intéressant 
de pouvoir en quelque sorte créer de nouvelles instructions qui seraient comprises de 
l’assembleur et qui éviteraient au programmeur de répéter toujours la même chose. 


Et bien ces instructions existent et 
comme elles sont plus qu'une instruction 
normale du microprocesseur, on les 
appelle des MACRO-INSTRUCTIONS. 
Ces macro-instructions, que nous appel- 
lerons dorénavant macros, sont des 
suites d'instructions élémentaires, que 
l'utilisateur définit dans un ‘‘’corps de 
macro’’ auquel il donne un nom, qui sera 
le nom de la macro et c'est ce nom que 
l'on utilisera lors d'un appel de cette 
macro. Tout cela n'est possible que si 
vous disposez d'un  ‘‘’Macro- 
assembleur'', c'est-à-dire d’un assem- 
bleur capable de vous permettre de défi- 
nir des macros et de les ‘entendre’ ou 
‘’générer'’ lors des appels. 

Dans votre CP/M Plus vous disposez de 
2 macro-assembleurs, MAC et RMAC. 
Tous les deux sont de toutes façons 
compatibles avec ASM et MAC génère 
des fichiers HEX à charger avec LOAD 
ou HEXCOM tout comme ASM, tandis 
que RMAC génère des modules dits 
‘’relogeables'’ que l’on doit lier entre eux 
par LINK, avant de pouvoir les exécuter. 
Nous nous en tiendrons à MAC pour 
l'instant. 

Voyons tout d'abord l'appel de MAC 
avec les paramètres possibles : 
A)MAC Nom-Fichier $Options 

Le fichier source se termine en .ASM et 
les options possibles sont : 

Adisque où se trouve le fichier source 
Hdisque destination du fichier HEX (Z: 
pas de fichier en sortie). 

Ldisque où se trouvent les fichiers ‘“‘librai- 
ries’” qui peuvent contenir des définitions 
de constantes, de macros, ou même du 
source. Ces fichiers sont inclus dans le 
source par la pseudo instruction 
MACLIB. 

Pdisque destination du fichier liste 
(X:console, P:imprimante, Z:pas de 
fichier liste). 

Sdisque destination du fichier symboles 
(Idem P pour X,P,2Z). 

+L Lignes lues dans les librairies inclu- 
ses dans la liste, si bien sûr une liste a 
été demandée. 

-L Lignes lues dans les librairies non inclu- 
ses dans la liste. 

+M Liste complète des lignes générées 
par les macros. 


-M Pas de liste des générations des 
macros. 

*M Liste uniquement le code hexa 
généré par les macros sans les 
instructions. 

+Q Liste les symboles locaux aux 
macros. 

-Q Pas de liste des symboles locaux. 

+S Ajoute le fichier SYM à la fin du 
fichier PRN. 

-S Pas d'ajout du fichier SYM au fichier 
PRN. 

+1 Liste de 
d'assemblage. 

-1 Pas de liste de la première passe. 


la première passe 


Nous expliciterons au fur et à mesure à 
quoi servent certaines options. Le disque 
courant est celui pris par défaut et les 
valeurs par défaut des options sont - 
L,+M,-Q,-S,-1. Mais prudence, vérifiez 
bien si vous obtenez ce que vous dési- 
rez car certaines options ne fonctionnent 
qu'avec d'autres. 

Voyons simplement quelques exemples : 
A)JMAC TEST Assemble le fichier 
A:TEST.ASM, les librairies chargées par 
MACLIB sont cherchées sur A:, et tous 
les autres fichiers .HEX .SYM .PRN sont 
générés sur A:. 

A)JMAC TEST $PXSZHZ Assemble 
A:TEST.ASM, liste à l'écran et pas de 
fichier des symboles, ni de fichier hexa. 
AJMAC TEST $HB$PXSZ Assemble 
A:TEST.ASM, liste à l'écran et pas de 
fichier des symboles, mais fichier 
TEST.HEX sur B:. 

Les macros permettent à un program- 
meur de se créer un langage propre ; on 
parle souvent de Macro-langage.. 

Il existe deux formes de macros : 

— Les macros pré-définies. 

— Les macros définies par l'utilisateur 
dans un ‘’corps de macro”. 

Les macros peuvent être regroupées 
dans des fichiers externes au programme 
que l'on appelle des librairies et qui ont 
pour extension .LIB. 

On les inclut dans le programme au 
moment de l'assemblage par la directive 
MACLIB Nom de librairie 

Une librairie ne peut contenir que des 
définitions de macros, elle ne peut pas 
contenir directement une partie de pro- 


gramme sous forme d'instructions. 


LES MACROS PRE-DEFINIES 


Ces macros sont spéciales par le fait que 
définition, appel et génération sont con- 
fondus. Donc elles ne sont jamais dans 
des librairies, mais font partie du pro- 
gramme, sauf si on les regroupe dans 
une autre macro. 

Pour MAC il s’agit essentiellement de 
macros à caractère répétitif. 

1- REPT : Cette macro permet de répé- 
ter un certain nombre de fois le corps de 
la macro. 

Exemple : 

REPT 3 ; Le mot REPT est dans la zone 
code opération, c'est le nom de la macro 
et ce nom sert d'appel, 3 est le 
paramètre. . 

dw O 

ENDM 

Cette macro va générer 3 fois le corps 
de la macro, c'est-à-dire qu'elle va 
générer : 

dw O 

dw O 

dw O 

Le corps de la macro peut contenir n'im- 
porte quoi. Imaginez que vous voulez 
créer une table qui contienne d’abord 
tous les chiffres pairs, puis tous les chif- 
fres impairs, et ceci entre O et 10, voici 
comment faire. 

NBRE SET O ; Le premier nombre pair est 
O0 

REPT 5 ; Spairs02468 

db NBRE ; génère un octet avec le chif- 
fre pair 

NBRE SET NBRE +2 ; cette pseudo opé- 
ration fait partie du corps de la macro et 
va ‘‘’s'exécuter'’ à chaque ‘appel’. 
ENDM ; fin du corps à répéter 

NBRE SET 1 ; Le premier impair est 1 
REPT 5 ; 5 impairs 1 35 7 9 

db NBRE 

NBRE SET NBRE +2 

ENDM 

Et voila, le tour est joué ! 

2- IRP : Cette macro se répète également 
un certain nombre de fois, mais cette 
répétition est contrôlée par une liste de 


paramètres. e@ 
33 


Imaginez que vous voulez créer une table 
d'adresses de messages d'erreur que 
vous appellerez ERRO, puis ERR1, etc. 
Voici comment faire avec IRP. 

IRP X,(0,1,3,ECRAN) 

dw ERR&X 

ENDM 

X est un paramètre muet n'ayant aucune 
signification. Le signe .& indique une con- 
caténation de caractères. Cette macro va 
générer : 

dw ERRO 

dw ERR1 

dw ERR3 

dw ERRECRAN 


Comme vous le voyez, la liste des para- 
mètres est'entre () et ceux-ci sont sépa- 
rés par des virgules. 

Vous pouvez également entrevoir la puis- 
sance du macro-langage, car le corps 
d'une macro peut contenir également 
des tests d'assemblage conditionnel, 
c'est-à-dire des IF ENDIF. 


LES MACROS  DEFINIES 
L'UTILISATEUR 

Elles peuvent contenir quasiment n'im- 
porte qui, du code, une autre macro, une 
redéfinition de macro, etc, les possibili- 
tés sont extrêmes et il faudrait un volu- 
mineux ouvrage pour vous démontrer 
toutes les possibilités du macro langage. 
Nous nous en tiendrons à des exemples 
simples, faciles à comprendre. 
Imaginez que vous désirez utiliser certai- 
nes instructions du Z80 avec MAC ou 


PAR 


RMAC, qui au départ ne sont prévus que 
pour le 8080 ; et bien cela est possible 
en créant une bibliothèque de macros. 
Une macro définie par l'utilisateur com- 
mence par son nom suivi de la pseudo 
instruction MACRO, elle même suivie 
d'une éventuelle liste de paramètres. Le 
nom de la macro sera celui que vous uti- 
liserez dans la zone code opération pour 
appeler cette macro. La fin du corps de 
la macro est signalée par la pseudo 
ENDM que vous avez déjà aperçue dans 
les macros pré-définies. Enfin, il existe 
une troisième pseudo EXITM, qui signale 
que la génération s'arrête là. Elle est sur- 
tout utilisée lorsque le corps de la macro 
contient des instructions conditionnelles. 
Voyons quelques exemples. 


Une macro qui permet d'utiliser le LDIR 
du Z80 

LDIR MACRO ; Nom: LDIR, pas de 
paramètre 

db OEDH,0BOH ; le code binaire de LDIR 
Z80 

ENDM 

Et voilà ! Ainsi, si dans un programme 
MAC ou RMAC vous voulez utiliser le 
LDIR, il suffit d’avoir défini la macro soit 
dans le programme avant son utilisation 
soit dans une librairie et de l'avoir char- 
gée par MACLIB. 

Vous trouverez ci-contre la liste de 3 
librairies : 

— DEFCPM.LIB est une librairie de défi- 
nition de constantes, liées aux fonctions 
CP/M. 


— Z80.LIB est une librairie permettant 
d'utiliser certains des codes opérations 
du Z80. 

— CONIO.LIB est une librairie contenant 
les habituels sous-programmes dont on 
a besoin pour afficher du texte, lire un 
caractère ou une chaîne, etc. 

Par contre étudiez attentivement toutes 
les macros écrites, essayez-les et plus 
particulièrement la macro PRINT qui est 
très spéciale ! En effet, c'est une macro 
qui se redéfinit elle-même après son pre- 
mier appel. Ainsi, lors du premier appel, on 
implante le sous-programme @ PRINT et 
on l'appelle puisque la macro est redéfi- 
nie comme étant un chargement de 
registres avec des paramètres et un 
appel à @ PRINT. 

Voici comment utiliser ces librairies : 
Ceci est un programme utilisant les 
librairies 

MACLIB DEFCPM; Doit être avant 
CONIO 

MACLIB CONIO 

MACLIB Z80 

ORG 100H 

BELL ; Beep ! 

CLS ; Efface l'écran 

VISU ‘‘Coucou’’,9,10 ; Affiche Coucou 
à la ligne 10 colonne 9 

jmp O 

END 

La prochaine fois nous verrons les spé- 
cificités propres à RMAC ainsi que le 
découpage en modules objets et la fonc- 
tion de l'éditeur des liens LINK. 

En attendant, bonnes macros ! 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


Sac pour Amstrad (clavier) 
PC 464C16640 61280 PCW 8256. 
oloris: bleu, gris ou sable. 

rix: 290 F TTC 


Sac pour moniteur Amstrad mono- 
chrome [1 couleur. {1 

Coloris: bleu, gris ou sable. -. 

Prix: "400 F TTC 


Cochez 
bien 

les cases 
et 
couleurs 


Housse pour Amstrad (claier) 
CPC 46406640 61280 PCW 825601 
Coloris: beige, blanc, bordeaux, noir, 
marron. 

130 F TTC 


Housse pour moniteur Amstrad. A 


Coloris: beige, blanc, bordeaux, noir, 


130 F TTC 


Pochettes disquettes 3” ou 3,5” 
pour 1 disquette 29 FTTC 
© pour 6 disquettes .... 116 F TTC 
D pour 10 disquettes 150 FTTC 
© pour 32 disquettes .. 200 F TTC 
Coloris: gris, bleu ou sable. 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 


IZARD Créations - 99 31 64 73 


27, Bd de la Fraternité 


44100 NANTES 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 


rayez les mentions inutiles. 


© Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Signature: 


€ONIN 
CONOUT 
LISTOUT 
CONSI0 
PRINTS 
INPUTS 
CONSTAT 
VERSION 
RSTDSK 
SELDSK 
OPENF 
CLOSEF 
DELETF 
READF 
WRITEF 
MAKEF 
RENAMEF 
SETDMAF 
GETF 
PUTF 


BDOS 


Fichier 


DEFCPM. LIB 


CP/M Pius: definitions des fonctions 


eau 


1 3 Lecture clavier 

2 3 Ecriture ecran 

s 3 Ecriture imprimante 

6 5 Acces direct console 

9 3 Ecriture ecran chaine de caracteres 
10 3 Lecture clavier d'une chaine 
11 3 Etat du ciaviér 

12 3 Numero de version de CP/M 

13 3 Re-initialise systeme disques 
14 3 Selection d'un disque 

15 3 Ouverture fichier 

16 3 Fermeture fichier 

19 5 Suppression fichier 

20 #5 Lecture seaventielle 

21 * Ecriture sequentieile 

22 3 Creation fichier 

23  Renomme fichier 

26 3 Fixe adresse de transfert fichier 
33 3 Lecture acces relatif 

34 4 Ecriture acces relatif 

s 5 Point d'entree de CP/M 


Fin de DEFCPM.LIB 


Fichier CONIO.LIB 


Macros sestion clavier et ecran 


READCHAR MACRO 


GETCHAR 


LP: 


GETLINE 


CLS 


ADR: 
J1: 


BELL 


PUTCHAR 


VISU 


ADR: 


ADR: 


J1: 


GOTOXY 


PRINT 


GPRINT: 


mvi 
cal! 
ENDM 


MACRO 
LOCAL 
mvi 
mvi 
cait 
.cPi 
Jz 
mvi 
mvi 
cal! 
ENDM 


MACRO 
mvi 
sta 
txi 
mvi 
cal! 
ENDM 


MACRO 
LOCAL 
imp 
db 


a 
® 


mov 
PUTCHAR 
Pop 

Pop 

inx 
dcx 
mov 


cr CONIN 45 lecture d'un caractere 
BDOS 1 avec echo 

-LP 

e, @FEH 5 set console status 

c» CONSI0O 

BI 

a 

LP 13 pas de caractere disponible 
e, @FFH 

€: CONSIO 

BDOS 13 lecture du caractere 


?Buffer, ?Len 

ar ?Len 35 
?Bufter 

d, ?Buffer 

cr INPUTS LA 
BDOS 


nombre de caracteres maxi 


lecture d'une chaine 


27,69,'#" 


d' ADR 
€» PRINTS 
BDOS 


e,7 53 caractere Bell 
€, CONOUT 


BDOS 


€+ CONOUT 
ea 
BDOS 


53 visu caractere dans À 


?Texte, 2Co1,?7Lis 


J1, ADR 
J1 
NUL ?Coi 


@DH, DAH, ?Texte, ” $" 


27:'Y',7Lis+1FH, ?Co1+1FH 


Texte, ’#$ 

d' ADR 

cr PRINTS 

BDOS F3 visualise le texte 

?Coi,?L'is 

cr CONOUT 

er 27 53 Escape 

BDOS 

€» CONOUT 

CEA 4 55 Y 

BDOS 

c* CONOUT 

e, ?Lis+iFH 55 Lisne 

BDOS 

€; EONOUT 

er 2Cô1+1FH 33 Colonne 

BDOS # LIIX MACRO 
db 
dw 

?Buffer; ?Len ENDM 

ETI 

ETI, LDIX MACRO 

h db 

b dw 

arm ENDM 

b OUTCA MACRO 

h db 

É ENDM 

b 

ab OUTCE MACRO 


Pase 2 


?Eti 
@DDH, 21H 
?Eti 


?Eti 
@DDH, ZAH 
?Eti 


@EDH, 79H 


ETIi: 


PRINT 


CPIR 


DJNZ 


LDED 


SETM 


RESM 


SBCHB 


SBCHD 


LDAR 


SRLA 


SLAA 


SIXD 


LIIX 


LDIX 


OUTUA 


OUTCE 


SETA 


POPIX 


EXAF 


MVIX 


ora € 
jnz aPRINT 

ret 

MACRO ??Buffer, ??Len 
Uxi b, ??Len 

1xi h:??Buffer 
cal! PRINT 

ENDM 

PRINT ?Buffer, ?Len 


ENDM 


Fin du fichier CONIO.LIB 


Macros .pour codes ZEB 


MACRO 

db @EDH, 2BGH 
ENDM 

MACRO 

db GEDH, 8B1H 
ENDM 

MACRO  ?Eti 

db 10H 

db ?Eti-#-1 
ENDM 

MACRO ?Eti 

db @EDH, SSH 
dw ?Eti 
ENDM 

MACRO  ?Eti 

db GEDH, 5BH 
dw ?Eti 
ENDM 

MACRO 2x 

db @CBH 

db @CEH+(2X*8) 
ENDM 

MACRO ?X 

db @CBH 

db B6EH+C7X#8) 
ENDM 

MACRO 

db GEDH, 42H 
ENDM 

MACRO 

db @EDH, 52H 
ENDM 

MACRO 

db GEDH, 5FH 
ENDM 

MACRO 

db QCBH, 3FH 
ENDM 

MACRO 

db OCBH, 27H 
ENDM 

MACRO ?Eti 

db @DDH, 22H 
dw ?Eti 

ENDM 

MACRO ?Eti 

db @DDH, 21H 
dw ?Eti 
ENDM 

MACRO ?Eti 

db &DDH, 2ZAH 
dw ?Eti 
ENDM 

MACRO 

db @EDH, 73H 
ENDM 

MACRO 

db @EDH, 59H 
ENDM 

MACRO 2x 

db &CEBH 

db QC7H+C2X#8) 
ENDM 

MACRO 

db @DDH, @&Œ1H 
ENDM 

MACRO 

db 8 

ENDM 

MACRO ?D, ?2N 

db @DDH, 56H 
db ?D;, ?N 
ENDM 


T i N G 


db DEDH, 53H 
ENDM 
SETA MACRO ?X 
db OCEH 
db @C7H+(2X#8) 
ENDM 
POPIX MACRO 
db @DDH, GE 1H 
ENDM 
EXAF MACRO 
db 8 
ENDM 
MVIX MACRO 2D, ?N 
db @DDH, 36H 
db ?D, 2N 
ENDM 
Pase 


Ecriture identique a DJNZ 
Ecriture SDED Adresse 
LD (?Et i), DE 


Ecriture LDED Adresse 
LD DE, (?Eti) 


Ecriture SETM X (X va de @ a 7) 


SET ?X+ CHL) 


Ecriture RESM X (X va de @ a 7) 


RES ?X» CHL) 
SBC HL, BC 

SBC HL;, DE 

LD AR 

SRL A 

SLA A 


Ecriture SIXD Adresse 
LD (?Eti),1X 


Page 2 


Ecriture LIIX Valeur 16 bits 
LD IX,?Eti 


Ecriture LDIX Adresse 
LD IX, (?Eti) 


OUT (C),4 


OUT (C),E 


Ecriture SETA X (X va de @ à 7) 


SET 7x, A 


POP IX 


EX HF: 4F" 


Ecriture MVIX Depiacement, Valeur & bits 


LD CIX+d),N ee £ : 
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sertg SE ser 
Aie SE +9 
RENAN Se mél 


+4 


ndréa TANGUY est auteur de logiciels édités 

par ERE Informatique. Nous l'avons rencon- 

trée pour nos lecteurs et l’avons laissé parler 
sans l’embarrasser de questions... 


CPC : Vous avez 36 ans, êtes mariée et 
mère de famille. Comment vous êtes 
vous trouvé en contact avec 
l'informatique ? 

J'ai eu mes premiers contacts avec l'in- 
formatique en 1982. Cette année-là on 
parlait beaucoup des ‘‘micros'’, qui 
allaient pénétrer dans les foyers, les éco- 
les, J'avais très envie d'en posséder 
un. Faute de grands moyens - et aussi 
parce que devant cette ‘’envie’’ la ques- 
tion se posait : serait-ce une feu de paille 
ou non ? - nous avons pris la sage réso- 
lution d'opter pour l'achat d’un Sinclair. 
Mon 2X81 ! Il est devenu le mien, parce 
que j'étais la seule personne dans la 
famille qui avait le temps de s'y intéres- 
ser. Apprendre à programmer c'est avoir 
le temps. Le 2X81 a un manuel très bien 


conçu. Cette machine est extraordinaire 
pour apprendre le basic. Je me suis mise 
à acheter des livres, c'est devenu une 
passion. 

Comme tous les amateurs, j'ai fait la ges- 
tion de la maison, l'annuaire téléphoni- 
que, des camemberts, etc. mais je cher- 
chais quelque chose autrement utile à 
faire. J'ai mis au point mes premiers édu- 
catifs pour mon fils. Je pensais que ce 
serait facile. Erreur ! Il essayait mes pro- 
grammes, mais seulement une fois ! Mes 
programmes sans dessins, sans ‘moteur 
ludique”” ne l'ont pas attiré ! Je dessine 
bien, mon imagination n'est que trop 
vive, le calcul mental est devenu maison 
à construire, carré magique, les coordon- 
nées se sont transformées en puzzle. 
Ce qui me manquait, c'étaient les cou- 
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leurs, les sons. L'été 85 Amstrad a fait 
son apparition dans notre région. Ce fut 
le coup de foudre : beaucoup de cou- 
leurs, performant, peu coûteux. 

Je l'ai maîtrisé rapidement. Le premier 
logiciel que j'ai conçu sur Amstrad, était 
Portrait Robot. (Mon programme 4 Sai- 
sons n'en était alors qu'au stade d'ébau- 
che. Seul Portrait Robot était terminé). 
Lors des tests il rencontrait un tel suc- 
cès auprès des enfants et des parents 
que je me suis décidée à la faire publier. 
J'ai préparé une lettre avec une descrip- 
tion détaillée et j'ai ajouté des photos 
d'écran. 

J'ai choisi 4 maisons d'éditions dans une 
revue informatique. J'ai confié mon cour- 
rier aux P.T.T. et dans les deux jours j'ai 
reçu deux coups de téléphone et une let- 
tre. C'était la joie. La quatrième maison 
(FREE GAMSLOT) a répondu positive- 
ment plusieurs mois plus tard. 

Chacun de mes rendez-vous m'a appris 
quelque chose. 

Le premier (POWER-SOFT) C'était après 
le 25 décembre. Il y avait une seule per- 
sonne dans l’entreprise. Ce monsieur n’a 
pas trouvé de cordon, pour brancher un 
moniteur couleur. Essayez de retrouver 
la valeur de Portrait Robot en 
monochrome ! 

Le deuxième (Run Informatique) M. X 
était enthousiaste et m'a couvert de 
compliments. Mais la personne qui pre- 
nait les décisions avait la grippe ! Après 
trois semaines d'attente, j'ai timidement 
appelé. 


Eux : ‘’Ecoutez, nous n'avons pas le 
temps : on prépare AMSTRAD-EXPO !’ 
Moi : ‘’Alors, au revoir...” ; 

Le troisième (Micro Application) Qu'est- 
ce qui m'a pris de les contacter ? Ils font 
surtout des utilitaires et des 
professionnels. 

C'est ainsi que j'ai repris le chemin de la 
Bretagne. Quelques mois plus tard Qua- 
tre Saisons était né. 

Je l’ai proposé à ERE Informatique. 


CPC : Un auteur potentiel a parfois du 
mal à choisir son sujet. Pourriez-vous 
nous dire comment avez-vous choisi de 
travailler dans le domaine éducatif ? 
En ce qui me concerne, je me suis prin- 
cipalement intéressée au logiciel pour 
enfants. 

Voici quelques critères que je respecte 
lors de l'élaboration d’un logiciel : 

En premier lieu, il doit être ludique. L’en- 
fant en bas âge apprend en jouant. Il 
compte et compare avec plaisir, à con- 
dition que cela ne dure pas trop long- 
temps. Un enfant de quatre ans ne peut 
guère fixer son attention sur quelque 
chose - si cette chose l'intéresse - plus 
de 8-10 minutes. || faut lui proposer une 
autre activité pour qu'il se repose. 
Deuxièmement, le logiciel doit éveiller 
son imaginaire pour qu'il oublie la con- 
sole. Le but n'est pas d’en faire un secré- 
taire ! Quand Je fais des tests avec des 
enfants qui n'ont encore jamais touché 
à un clavier, avant le chargement du logi- 
ciel, je les laisse ‘‘jouer’” avec la machine. 
L'écran est vite rempli, ils font siffler le 
‘‘bip'’ en fin de ligne... Quand le jeu est 
chargé, ils ne s'occupent plus que de 
l'écran. L'écran reste le grand rival de 
l'autre écran, celui de la TV ! J'ai com- 
pris cela, quand une petite fille de 4 ans, 
qui a testé ‘‘Cirque”’, est revenue quel- 
ques mois plus tard et m'a demandé : 
‘tu me mets ta télé’?”. 

Un troisième point qui me semble impor- 
tant : il ne faut jamais décourager les 
enfants. Je ne donne pas de mauvais 
points, jamais de motivations. L'outil 
informatique va accompagner les 
enfants pendant toute leur vie. Un sen- 
timent de réussite doit naître des premiè- 
res rencontres. Pour moi, un logiciel pour 
enfants ne doit être qu'un support pour 
les parents ou l'enseignant, au même 
titre que les livres, la‘ TV scolaire, etc. Il 
doit être de manipulation facile. Même 
les parents doivent savoir s'en servir. 
Cela paraît ridicule, mais j'ai remarqué 
que les enfants osent davantage tâter, 
essayer, découvrir que les adultes, qui 
sont parfois comme figés devant la 
machine. J'ai rencontré des enfants qui 
refusaient le jeu parce que ‘Papa non 
plus, ne sait pas faire”’. L'intérêt des 
parents est un puissant stimulant pour 
l'enfant. 

Enfin, personnellement, je suis contre la 
manette de jeu et le crayon optique. Les 
programmes, je les crée aussi , pour faire 
‘parler’. Je trouve insupportable qu'un 
parent me dise : si je lui achète un édu- 
catif, c'est pour qu'il se débrouille avec, 
tout seul. Les enfants sont déjà assez 
seuls ; pourquoi vouloir les isoler davan- 
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tage avec l'ordinateur ? On en rencon- 
tre en maternelle, qui à 3-4 ans ne par- 
lent pas encore. A six ans, au CP, beau- 
coup manquent de vocabulaire. Le gens 
n'ont plus le temps, le soir, de lire le petit 
livre au bord du lit. Le vocabulaire s'ac- 
quiert en parlant, en parlant, en répétant 
souvent les phrases, les mots. Quand j'ai 
développé 4 saisons pour AMSTRAD, 
ordinateur ‘‘familial””, je n'ai pas inclus 
de manette ou de crayon optique. Quand 
un enfant peut ‘’montrer’”, il ne formule 
pas de question, la parole ne naît pas |. 
Par contre dans l'adaptation de 4 saisons 
pour MO5, je m'y suis prise différem- 
ment. Je me suis mise en rapport avec 
des enseignants. J'ai voulu savoir exac- 
tement ce que signifiait : l'informatique 
à l'école. 


VOTRE NOUVEAU 
SPECIALISTE 


AMSTRAD 


En plein centre-ville 
Parking assuré 
20, rue de la Gare 
62300 LENS 


Tél. 21.26.42.24 


_ 


L'école que j'ai visitée avait 5-6 MO5 en 
fonctionnement, installés dans une salle, 
pour environ 100 élèves. Les classes s'y 
rendent une fois par semaine, pour une 
heure. Une partie des enfants travaille 
sur les ordinateurs, les autres, en atten- 
dant, ont des activités différentes. Les 
enseignants ne peuvent pas être derrière 
le dos de chaque élève pour fournir des 
indications. les logiciels doivent donc 
être de manipulation très simple et l’en- 
fant doit pouvoir se débrouiller seul. Le 
déroulement des jeux doit être rapide, 
pour permettre à tous les enfants de 
jouer. 

Encore une chose et pas la moindre : Un 
jeu, qu'on ne donne pas volontiers à son 
enfant, n’est pas bon pour l'enfant des 
autres non plus. 


AMIS DU LOTO 


ne jouez plus à l’aveuglette ! 


Tout savoir sur les numéros pour mettre 
le maximum de chance de gagner 
de votre côté 
est enfin à votre portée grâce à 


LOTO-INFORMATIC 
Services 


et ses logiciels de sélection et de 
combinaisons de jeux qui rapportent 


DIRECT CRÉATEUR 


Tous renseignements sur programmes, 
statistiques et méthodes (avec ou 
sans micro) contre 4 timbres à: 

G, HOH 15, rue du Hohwald 
HOENHEIM 67800 BISCHHEIM 
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EDUCATIF 


TOP CALCU 


2° PRIX DU CONCOURS 
INFORMATIQUE 


4X5= 04 
BONNE REPONSE 


AE GR EE & 0 KL D 


| Es loss 


crane 


LOUER SEUEEEDE DEEE DEEE EE 

20 ‘% TOF CALCUL * 

20 ‘# FRANCE BETTON *# 

LOMME TZILILILLLLLSIISSSS: 

30 ‘ X = CONTROL X 

COMMETZILLILILISSLSSILSS; 

79 ‘# INITIALISATION * 

COMME TIZLLISLLLILLISILISSSS. 

90 MODE Z2:INK 1,0:INE O0,0:BORDER O:DEF F 

NETI=(TIME-RT) /300 

100 DEF FNFO (AFP) =AR (AFP) /AT (AFP) #100:DE 

F FNETM(CAFF) =RN (AFP) /AR (AFP) 

110 AS=STRINGS (80,189): E$="X CHRONO X" 
:C$="X 0.00 S 2" 

120 D$="X TEMFS MOYEN: 00.00 S Â'":E$="Xx 

REUSSITE : 00.00 7% 2" 
150 F$="£ NIVEAU : 
G$="? 00,00 S X" 

140 WINDOW#1,3,54,5, 18: WINDOW#?,3,54,20, 
24: WINDOW#3,57,76,2,18 

150 WINDOW#4,57,78,20,20:WINDOW#5,57,78, 
22,22: WINDOW#6,57,78,24,2 

160 WINDOW#7,45,54,2,3:DEFINT A-J:DEFSTR 
S-Z:SYMBOL AFTER 32 

170 TL(1)="KDEBUTANTX":TL(2)="XAMATEUR X 
“:TL(3)="X INITIE X" 

180 Y="I\ \1 ## 
y ## ##.##  l" 

190 WE(1)="MULTIFLICATION":WE(2)="DIVISI 
ON" 


L":DEE=0: 


##.## 
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Franck BETTON 


ï OP CALCUL est un programme 
éducatif s'adressant aux petits 


mais qui saura également mettre 
dans l'embarras les plus grands, tout 
simplement parce qu'il possède plu- 
sieurs niveaux. 


Lors de la conception du programme, je n'ai pas oublié ce prin- 
cipe de Montesquieu qui disait : ‘’La méthode de ceux qui 
enseignent nuit le plus souvent à ceux qui apprennent'’. C'est 
pourquoi j'ai soumis les versions successives du programme 
à la sagacité et aux critiques de mes jeunes voisins, ce qui 
m'a permis de l'améliorer énormément. 

Afin de favoriser la compétition, j'ai inclus un tableau récapi- 
tulatif gardant les records. Pourquoi ne pas s'amuser en appre- 
nant, n'est-ce pas la meilleure formule ? Quant au programme 
lui-même, il ne nécessite pas d'explications. Si vous ne le com- 
prenez pas, alors j'aurai échoué et ce n’est pas un éducatif 
digne de ce nom. Sinon, et je le souhaite, c’est que je n'ai 
pas un sens si abstrait de l’enseignement. 


200 WE (5)="ADDITION":WE (4) ="SOUSTRACTION 
210 "ALFHABET GEANT 

220 SYMEOL 255,3,7,7,7,9,9,9,16:SYMEUL € 
J2,240,240,120,120,120,254,254 

230 SYMBOL 254,128,192,192,192,224,224,7 
24,240: SYMBOL 240,254,6,6,0,0,0,22, 224 
240 SYMEOL 251,127,126,20,230,230,30,30,231 
:SYMEOL 250,248,28,210,230,30,70,26,248 
250 SYMEOL 249,30,30,30,270,20,126,127:CY 
MEOL 248,28,30,30,30,2:0,28, 248 

260 SYMEOL 247,31,96,120,120,120,120,120 
,120: SYMEOL 246,240,28,6,6 

270 SYMBOL 245,120,120,120,120,120,56,31 
:SYMBOL 243,127,126,30,350,30,30,230,70 
280 SYMEOL 242,248,28,30,30,30,:0,:30,230: 
SYMEOL 241,30,30,30,30,30,268,248 

290 SYMEOL 239,31,230,350,30,230,126,127:5Y 
MEOL 238,224,32,0,0,6,6,254 

200 SYMBOL 237,31,20,30,30,30,127,127:6Y 
MEOL 2376,224,32,0,0,0,128,128 

310 SYMEOL 235,254,254,60,60,60,60,248:5S 
YMBOL 234,126,126,60, 60,60, 60,60, 63 

320 SYMBOL 233,126,126,60,60,60,60,60,25 
2: SYMBOL 252,60,60,460,60,80,126,126 

330 SYMBOL 231,15,15,3,28,3,3,3,3:SYMEDL 
230,240,240,192,192,192,192,192,19% 

340 SYMEOL 229,3,3,3,3,3,15,15:SYMBOL ZE 
8,192,192,192,192,192,240,240 

350 SYMEOL 227,3,3:SYMBOL 226,252,252,24 
0,240,240,240, 240,240 


160 SYMBOL 225,0,0,26,26,8,8,15:SYME0L £ 


24, 240,240,240, 240,240, 224, 192 

370 SYMEOL 227%,127,127,30,230,30,30,30,30 
: SYMBOL 222,128,128 

380 SYMEOL 221,0,0,0,0,6,6,254:SYMBOL 22 

0,112,112,56,56,60,60,62,62 

390 SYMBOL 219,126,126,124,124,188,188, 1 
88,186: SYMBQOL 216,14,14,4,4,4,4,132,196 
400 SYMBOL 218,47,47,39,39,34,114,112:SY 

MBOL 217,112,112,56,60,62,47,39,35 

410 SYMBOL 215,22,32,232,22,32,112,112:SY 

MEOL 214,228,244,124,60,28,14,14 

420 SYMBOL 213,30,30,20,30,30,127,127:SY 

MBOL 212,0,0,0,0,0,128, 128 

430 SYMBOL 211,120,120,121,121,120,56,31 
: SYMBOL 210,20,20,158,158,94,60,248 

440 SYMBOL 209,31,231,30,30,230,127,127:SY 

MEOL 208,128, 192,224,112,62,30,14 

450 SYMBOL 207,31,56,120,120,120,56,30,7 
:SYMEUL 206,254,6,6,0,0,0,0,128 

480 SYMBOL 205,1,0,0, 0, 96, 96, 127: SYMBOL 
204,224,120,28,:0,:0,28,248 

470 SYMBOL 203,127,99,99,2,3,23,3,3:SYMEO0 

L 202,254,196,198,192,192,192,192,192 

460 SYMBOL 201,127,127,20,20,30,30,30,:30 
: SYMBOL 200,142,142,4,4,4,4,4,4 

490 SYMBOL 199,20, 20, 30, 30, 30, 14, 7: SYHEO 

L 198,4,4,4,4,4,4,252 

500 SYMBOL 197,96,96,112,112,56,56,28,28 
:SYMBOL 196,14,14,4,4,8,8,16,16 

310 SYMEOL 195,14,14,7,7,3,3,1:SYMBOL 19 
4,:2,22,64,64,128,1278 

520 SYMBOL 193,96, 96,48, 24,12,6,3, 1:SYMB 

OL 192,2,6,14,2:0,60, 120,240, 724 

250 SYMEOL 191,3,7,15,126,124,120,112:SY 
MBOL 190,192,224,48,24,12,6,6 

540 SYMBOL 253,63,32,64,64,64,225,225:SY 

MBOL 244,0,0,0,6,6,2B,240 

990 SYMEOL 189,170,170,170,170,170,170,1 
70,170 

STONE LE SLR SSSR RSS SRE SES) 

270 ‘ALFHARET NORMAL 

380 SYMBOL 65,0,124,130,254,130,130:SYME 

OL 66,0,252,130,252, 130,252 

390 SYMEUL 67,0,126,128,128,128,126:SYMB 

OL 68,0,252,130,1230,1270,252 

800 SYMBOL 69,0,254,128,248,128,254:SYME 

OL 79,0,254,128,248, 128,128 

610 SYMEOL 71,0,126,128,142,130,126:SYME 
OL 72,0,130,130,254,130, 130 

620 SYMEOL 75,0,8,8,8,68,8:SYMEOL 74,0,2, 
2,130,150,124 

620 SYMBOL 75,0,142,144,224,144,142:SYME 
OL 76,0,128,126,128,128,254 
640 SYMEOL 77,0,198,170,146,13 
OL 78,0,194,162,146,138, 174 
650 SYMEOL 79,0,124,1:0,130,130,124:SYME 
OL 80,0,252,130,252,128,12:8 


0,130: SYME 


665 SYMEOL 81,0,124,1:0,154,134,124:StME 
OL 82,0,252,130,252,192,1354 
6870 SYMBOL 83,0,126,128,124,2,292:SYMBDL 
84,0,254,16,16,16,16 
680 SYMBOL 85,0,130,130,130,130,124:SYME 
OL 86,0,130,130,68,40,16 
690 SYMBOL 87,0,130,130,146,84,108:SYMEU 
L 88,0,198,40,16,40,198 
700 SYMBOL 89,0,134,72,48,32,192:SYMBOL 
90,0,254,8,16,2:2,254 
710 HE EEE 
720 ‘MR JUGE 
7:50 SYMEOL 108,0:SYMBOL 109,0:SYMEOL 110 
,0:SYMEOL 111,0:SYMBOL 116,0 
740 SYMBOL 112,0,0,0,0,0,0,0,1:SYMEOUL 11 
3,0,1,6,8,48,64,1278 
750 SYMEOL 114,64,160,24,6,1:SYMBOL 115, 
0,0,0,0,0,128,64,32 
760 SYMBOL 117,0:SYMBOL 118,0:SYMBOL 119 
,0:SYMEOL 120,0:SYMBOL 121,0 
779 SYMBOL 122,0:SYMBOL 12%, 0: SYMBOL 124 
,0:SYMEOL 125,6,8,8,16,32,64,12B, 128 
780 SYMBOL 126,0:SYMBOL 127,0:SYMBOL 148 
.16,8,4,4,2,2,2,1:SYMBOL 129,0 
790 SYMBOL 120,0:SYMBOL 1:1,0,0,0,0,0,0, 
O,127:SYMBOL 122,0,0,0,0,0,0,0, 128 
800 SYMBOL 1233,0:SYMBOL 134,0:SYMBOL 1235 
,0:SYMEOL 136,0,0,0,0,0,3,60,192 
810 SYMBOL 137,1,2,4,6,31,224:SYMEOL 1:8 
,9,0,0,0,240,15:SYMBOL 141,1,1,1 
820 SYMBOL 139,0,0,0,0,0, 128, 120, 7: SYMEO 
L 140,0,0,0,0,0,0,0,128 
820 SYMBOL 142,0,0,0,128,128,129,1:34,154 
:SYMEOL 145,1,2,12,16,96,128 
840 SYMBOL 144, 128,0: SYMBOL 145,96,16,8, 
4,2,2,2,1:SYMEOL 146,0 
850  HHHEHEOUHONHHEHN HET 
860 ‘CHIFFRE ET SIGLE 
870 SYMEOL 37,0,66,164,72,18,37,66:SYMED 
L 147,15,112,112,112,112,112,112 
880 SYMEOL 148,240,14,14,14,14,14,14:5Sÿh 
BOL 149,112,112,112,112,112,112,15 
890 SYMBOL 150,14,14,14,14,14,14,240:SYN 
BOL 151,0,14,14,14,14,14,14 
900 SYMEOL 152,14,14,14,14,14,14:SYMEOL 
153,15,0,0,0,0,0,0,15 
910 SYMBOL 154,240,14,14,14,14,14,1i4,240 
: SYMEOL 155,0,0,0,0,0,0,240 
920 SYMBOL 156,0,0,0,0,0,0,15:SYMBOL 1357 
,0,11%,112,112,112,112,112,15 
9:0 SYMEOL 158,0,14,14,14,14,14,14,:40:5 
YMEOL 160,240,0,0,0,0,0,0,240 
940 SYMEOL 159,15,112,112,112,112,112,11 
2,15: SYMEOL 161,3,5,3,3,3,23,127,127 
950 SYMEOL 1657,192,192,192,192,192,195,2 
54,254: SYMEOL 163,127,3,3,3,23,35,3 
960 SYMEOL 164,254,192,192,192,192,19,1 
92:SYMBOL 165,0,0,0,0,0,0,255, 258 


0 00 
39 


970 SYMEOL 166,0,0,0,0,0,0,255,2955:S6YMEB0 

L 167,255 

980 SYMEOL 168,255:SYMBOL 169,96,112,120 
,00,20,15,7,35 

990 SYMEOL 170,6,14,30,60,120,240,224,19 
2:SYMBOL 171,7,15,20,60,120,112,96 

1900 SYMBOL 172,224,240,120,60,30,14,6:5S 
YMBOL 1723,0,3,3,3,0,0,127,127 

1010 SYMBOL 174,0,192,192,192,0,0,254,25 
4: SYMEOL 175,127,0,0,3,3,3 

1020 SYMBOL 176,254,0,0,192,192,192:SYME 
OL 177,0,0,255,2955,259 

1020 SYMBOL 48,60, 102,102,0,102,102,60:S 
YMEOL 49,0,6,6,0,6,6 

1040 SYMEOL 50,60,6,6,60,96, 96,60: SYMBOL 
51,60,6,6,60,6,6,60 

1050 SYMBOL 52,0,102,102,60,6,6:SYMEOL 5 
3,60,96,%6,60,6,6,60 

1060 SYMBEOL 54,60,96,96, 60 ,102,102,60:SY 
MEOL 55,60,102,102,0,6,6 

1070 SYMBOL 56,460,102, 10%, 60,102,102,60: 
SYMBOL 57,60, 102, 102,60,6,6, 60 

1080 HE HE HEDEDEE EE DE TETEN 

1090 ‘ELABORATION CHIFFRES GEANTS 

1100 ZHA(O)=CHRS (147) +CHR$ (148) : ZHA(1) =C 

HR$ (32) +CHR$ (151) 

1110 ZHA(2)=CHRS (153) +CHR$ (154) : ZHA (3) = 
HA (2) : ZHA (4) =CHR$ (157) +CHR$ (158) 

1120 ZHA(S) =CHRS$ (159) +CHRS$ (160) : ZHA (6) =2 

HA (5): ZHA(7)=ZHA (0) 

1130 ZHA(B) =CHRS (159) +CHRS (154) : ZHA(9)=Z 
HA (8) 

1140 XHA(O)=CHRS (149) +CHR$ (150) : XHA (1) =C 

HRS C2) +CHRS (152) 

1150 XHA (2) =CHRS (149) +CHR$ (155) : XHA (3) =C 

HR£ (156) +CHR$ (150) 

1160 XHA(4)=CHRS (22) +CHK$ (152) : XHA (5) =CH 
R$ (156) +CHR$ (150) 

1170 XHA (6) =XHA (0) : XHA (7) =XHA (1) : XHA (8) = 
XHA (CG) : XHA (9) =XHA (5) 

1180 #66 EEE DEEE DEEE DEEE 

1190 ‘ELABDRATION SIGLES GEANTS 

1200 SGA(1)=CHRS (169) +CHR$ (170) : SGB(1)=C 
HR#(171)+CHR$ (172) 

1210 SGA(Z)=CHRS (1723) +CHR$ (174) : SGB (2) =C 
HR$ (175) +CHR$ (176) 

1220 SGA (C3) =CHRS (161) +CHR$ (162) : SGB (3) =C 
HR$ (163) +CHR$ (164) 

1230 SGA (4)=CHR$ (165) +CHR$ (165) : SGB (4) =C 
HR#&167)+CHR$ (168) 

1240 ZGA=CHRS (177) +CHR$ (177) : XGB=CHR$ (17 
7)+CHR$ (177) 

1250 "HS EEE SEE DEEE DEEE 

1260 ‘ELAEORATION LETTRES GEANTES 

1270 ZA=CHRS (255) +CHR$ (254) : XA=CHR$ (253) 
+CHRS$ (252) : ZB=CHRS (251) +CHR$ (250) 

1280 XB=CHRS (249) +CHR$ (248) : ZC=CHRS$ (247) 
+CHRS (246) : XC=CHRS (245) +CHR$ (244) 


40 


1290 ZD=CHRS (243) +CHR$ (242) : XD=CHR$ (249) 
+CHR$ (241) : ZE=CHRS (251) +CHR$ (240) 

1200 XE=CHRS (239) +CHR$ (238) : ZF=2E: XF=CHR 
$ (237) +CHR$ (236) : ZG=ZC 

1310 XG=CHR$ (245) +CHR$ (235) : ZH=CHRS (234) 
+CHRS$ (232) : XH=CHRS$ (232) +CHR$ (232) 

1320 ZI=CHRS (231) +CHR$ (230) : XI=CHRS (229) 
+CHR$ (228) : ZJ=CHRS$ (227) +CHR$ (226) 
1330 XJ=CHR$ (225) +CHR$ (224) : ZL=CHRS (225) 
+CHRS$ (222) : XL=CHR$ (249) +CHR$ (221) 

1340 ZM=CHRS (220) +CHR$ (219) : XM=CHRS (218) 
+CHRS$ (232) : ZN=CHRS$ (217) +CHR$ (216) 

1250 XN=CHR$ (215) +CHR$ (214) : ZO=CHRS (247) 
+CHRS$ (242) : XO=CHRS$ (245) +CHR$ (241) 

1360 ZP=2B: XP=CHRS (213) +CHR$ (212) : ZQ=20: 
XQ=CHRS (211)+CHR$ (210) : ZR=ZE 

1370 XR=CHRS (209) +CHR$ (208) : ZS=CHRS (207) 
+CHR$ (206) : XS=CHRS$ (205) +CHR$ (204) 

1280 ZT=CHRS (203) +CHR$ (202) : XT=X 1: ZU=CHR 
$ (201) +CHR$ (200) . 

1290 XU=CHRS (199) +CHR$ (198) : ZV=CHRS (197) 
+CHR$ (196) : XV=CHRS$ (195) +CHR$ (194) 

1400 ZX=CHRS# (193) +CHR$ (192) : XX=CHRS (191) 
+CHRS (190) : SP=CHRS (32) +CHR$ (32 

1410 ‘#3 ED HD DEEE 

1420  DECLARATION MESSAGES GEANTS 

1420 TLA=SP+SP+2T+20+2P+SP+SP+SP+ZC+ZA+2 
L+2C+2U+ZL+SF+SP 

1440 TLE=SP+SF+XT+XO+XP+SP+SF+SP+XC+XA+X 
L+XC+XU+XL+SF+SF 

1450 ZEi=2A+2F+2P+2U+21+7E+SF+2S+ZU+2ZR+S 
P+2E+25+2P+2ZA+2C+7E 

1460 XE1=XA+XF+XP+XU+X1+XE+SP+XS+XU+XR+S 
P+XE+XS+XF+XA+XC+XE 

1470 ZE2=2B+70+ZN+ZN+2E+SP+ZR+2ZE+ZF+20+2 
N+2S+7E 

1480 XEZ2=XB+X0+XN+XN+XE+SF+XR+XE+XP+X0+X 
N+XS+XE 

1490 ZE3=2T+2U+SP+ZF+ZA+21+2S+SFP+7E+2ZR+7Z 
R+ZE+ZU+ZR 

1500 XEZ3=XT+XU+SP+XF+XA+X1+XS+SP+XE+XR+X 
R+XE+XU+XR 

1510 ZE4=ZL+2E+SP+ZR+2ZE+2S+2U+ZL+2T+2ZA+2 
T+SP+2E+2S+2T 

1520 XE4=XL+XE+SP+XR+XE+XS+XU+XL+XT+XA+X 
T+SP+XE+XS+XT | 

1520 ZES=ZR+2E+2P+7E+2T+7E: ZE6=2B+21+2E+ 
ZN:2C5=ZHA (5) +SF+SGA (4) +SF+ZF+ZI+ZN 

1540 XES=XR+XE+XP+XE+XT+XE: XE6=XE+XI+XE+ 
XN: XCS=XHA (5) +SF+SGB (4) +SF+XF+X1+XN 

1550 ZCi=ZHA(1)+SP+SGA(4)+SP+2T+ZE+2S+2T 
+SF+2S+2F+2E+2C+21+7F+21+2ZQ+ZU+7E 

1560 XC1=XHA(1)+SP+SGB (4) +SP+XT+XE+XS+XT 
+SF+XS+XP+XE+XC+X1+XF+X1+XQ+XU+XE 

1570 ZC?2=ZHA(2)+SP+SGA (4)+SP+2T+ZE+2S+ZT 
+SP+2C+70+2M+2F+2L+ZE+ZT 

1580 XC2=XHA(2}+SP+SGB (4) +SF+XT+XE+XS+XT 
+SP+XC+X0+XM+XP+XL+XE+XT 


MULTIFACE II 


UNE INTERFACE POUR SAUVEGARDER 
TOUS VOS PROGRAMMES 


PLUS PERFORMANTE QUE SES CONCURRENTES 
CARACTÉRISTIQUES: COMPATIBLE TOUS 464-664-6128 ENTIÈREMENT EN FRANÇAIS 


SAUVEGARDEZ, EXAMINEZ, MODIFIEZ TOUS VOS PROGRAMMES: 600 FRANCS + PORT: 25F 


DIGITALISEUR LE SCANNER 
Avec votre caméra vidéo en toute source vidéo digitalisez Digitalisez votre photo préférée, rentrez-la dans votre ordi- 
l'image que vous avez choisie. Fabriqué par Electric Studio, nateur, travaillez-la ou modifiez-la si vous le souhaitez. 
c'est un gage de qualité. Sauvegardez-la sur votre disquette et tirez-en‘une copie 
Possibilité de tirer la photo sur votre imprimante, de la mo- format A3 avec votre imprimante (ne fonctionne qu'avec 
difier et de la sauvegarder sur disquette à volonté. la DMP 2000). 


Prix de lancement 1400,00 FTTC + 25,00 F frais de port. Prix 890,00 F TTC + 25,00 F frais de port. 


CSA. Sottuare 


55, rue Tondu 33000 Bordeaux Tél 56 9635 23 Poste 31 


[ECHOSOFT Le rêve !.. Votre voix dans votre ordinateur sans interface- 
digitalisée, elle vous permettra de recréer votre jeu préféré avec vos VOS 


propres phrases et intonations. Synthesoft : encore du rêve !... 

Un véritable synthétiseur électronique avec votre clavier PROGRAMMES 
(reproduction, enregistrement). Soundsoft : tou- NOUS 

jours du rêve !.. Parole et musique, c'est 


fait, vous en êtes fier, mais les brui INTERESSENT 


-tages ?.. Alors réveillez-vous, il 


tourne sur votre CPC. CONTACTEZ 
Génial non !.. 
C : 365 F NOUS !.… 


transfert de 


MEPHISTO 


cassette à disquette pour 
les logiciels standards et sans 
entête. Tout est automatique, même la 
relocation. Difficile de trouver 


mieux !.. [C : 175 F] 
MEPHISTO Veste 
LRU EME el EE Une revue pour — 

s les mois, > 


vous aider dans tous vos transferts. Tou 
environ une quinzaine de transferts. Déjà 5 numéros. 
Le numéro :EAEEIES 
Enfin un logiciel d'accès direct fait re) œ œ œ 


RORRAONS SP VERSO NES SMS EDITEUR + IMPORTATEUR + DISTRIBUTEUR 


d'emploi avec ses menus déroulants. Accessible 5, rue du Tondu - 33000 Bordeaux 


par des fonctions préprogrammées 2" Zn 
ou redéfinissables. 1 BON DE COMMANDE 


D : 370 F 


Plus besoin 
d'en parler. Univer- ‘ 
sellement connu sur 
AMSTRAD, le best et le must 
de la duplication de sauvegarde sur 
CEE AMSTRAD (copie, analyse, 
transfert...). Vraiment 
sans égal, et c'est vous qui le dites, 
les AMSTRADISTES... 


[D : 250 F] 


| Prévoir 25F de port + 20F pour le contre- 
| remboursement 


Un logiciel pour 
7. programmer votre | LOGICIEL(S) COMMANDE(S) : .............. 
imprimante avec un en- | 

semble de RSX. Des recopies 1h Las re nn et ee ere mena Di A 
d'écrans graphiques et textes en RO A REG RC ie 
différentes couleurs (DMP L: DMP [l LAN AN, era ele Brett RAR TT St er dé à 
2000, EPSON, CPA:-80..). | RU Ce CE EE 


{ LE CATALOGUE DE NOS SOFTS EST 
IMPRESSION C : 200 F[D : 240 F|BRR 


DISPONIBLE CHEZ VOTRE REVENDEUR 


1590 ZCZ=ZHA (3) +SF+SGA (4) +SP+ZA+2P+2ZF+2ZR 
+ZE+ZN+7D+7ZR+7E 

1600 XCZ=XHA C3) +SP+SGB (4) +SP+XA+XP+XP+XR 
+XE+XN+XD+XR+XE 

1610 ZC4=ZHA(4)+SF+SGA(4)+SP+2ZR+2ZE+2V+20 
+ZI+2R 

1820 XC4=XHA (4) +SP+SGB (4) +SF+XR+XE+XV+X0 
+XI+XR 

1630 2C7=2T+20+ZN+SP+2C+2ZH+20+21+2X+CHR$ 
(32) +CHR$ (177) 

1640 XC7=XT+XO+XN+SF+XC+XH+XO+XI+XX+CHRS 
(32) +CHR$ (177) 

1650 ZRi=2Q+ZU+ZE+2ZL+SP+ZE+7S+2T+SP+2ZT+7 
O+ZN+SF+ZN+71+2ZV+2E+7ZA+2U 

1660 XR1=XQ+XU+XE+XL+SP+XE+XS+XT+SP+XT+X 
O+XN+SF+XN+XI+XV+XE+XA+XU 

1670 ZR2=2HA(1)+SFP+SGA (4) +SP+2ZD+2E+ZB+2U 
+ZT+ZA+ZN4ZT 

1680 XRZ=XHA(1)+SF+SGE (4) +SP+XD+XE+XB+XU 
+XT+XA+XNEXT 

1690 ZR3=2ZHA (2) +SF+SGA(4)+SP+ZA+2M+ZA+ZT 
+2E+ZU+ZR 

1700 XR3=XHA (2) +SP+SGB (4) +SP+XA+XM+XA+XT 
+XE+XU+XR 

1710 2ZR4=ZHA (CZ) +SF+SGA(4)+SP+21+ZN+21+2T 
+21+7E 

1720 XR4=XHA (3) +SF+SGB (4) +SP+XI+XN+XI+XT 
+XI+XE 

1730 GhHA=ZM+2A+Z1+ZN+2T+ZE+ZN+ZA+ZN+ZT:S 
EA(2)=2ZD+21+2V+21+2S+7Z1+Z0+2ZN 

1740 SME=XM+XA+XI+XN+XT+XE+XN+XA+XN+XT:S 
ER(2)=XD+XI+XV+XI+XS+XI+X0+XN 

1750 SEA(I)=2M4+ZU+2L+2T+Z1+2P+7ZL+21+72C+2 
A+2T+21+20+72ZN 

1760 SEB(1)=XM+XU+XL+XT+XI+XP+XL+XI+XC+X 
A+XT+XI+XO+XN 

1770 SEA(Z)=2ZA+ZD+2D+Z1+2T+2Z1+20+2N: XMA= 
2F+2ZR+72E+7T 

1780 SEB(3)=XA+XD+XD+XI+XT+X1+X0+XN: XMB= 
XF+XR+XE+XT 

1790 SEA(4)=2S+20+2U+7S+2T+2R+2A+2C+2T+7 
1+20+ZN 

1800 SER(4)=XS+X0+XU+XG+XT+XR+XA+XC+XT+X 
1+XD+XN 

1810 TAÏ=2ZS+7A+2ZL+ZU+2T: TBI=XS+XA+XL+XU+ 
XT: TA6=20+ZU+2F: THÉ=XO+XU+XF 

1820 TAZ=2Q+7U+2ZE+SP+2F+2ZA+Z1+2S+SP+2T+7 
U: TAS=ZS+ZN+71+7F 

1820 TEZ2=XQ+XLU+XE+SP+XF+XA+XI+XS+SP+XT+X 
Ur TES=XS+XN+XI+XF 

1840 TAZ=ZT+ZU+SP+2M+ZE+SP+2ZQ+2U+21I+2T+2 
T+ZE+2S:TA7=2B+71+2ZE+ZN 

1850 TRZ=XT+XU+SP+XM+XE+SP+XQ+XU+XI+XT+X 
T+XE+XS: TR7=XE+XI+XE+XN 

1860 TA4=ZT+2ZU+SF+2C+ZH+ZA+ZN+26G+2E+725+S 
F+2ZT+Z0+ZN+SF+2ZN+21+2V+ZE+ZA+ZU 

1870 TE4=XT+XU+SP+XC+XH+XA+XN+XG+XE+XS+S 
F+XT+XD+XN+SP+XN+XI+XV+XE+XA+XU 
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1880 TAB=ZA+ZU+SP+ZR+ZE+2V+20+21+ZR: TBB= 
KA+XU+SF+XR+XE+XV+X0+XI+XR 

1890 TA9=ZT+ZU+SP+ZM+ZE+2T+2S+SP+2ZT+2ZR+2 
0+ZF+2S+SP+2ZD+ZE+SP+2T+2E+2M+2ZP+2S 

1900 TB9=XT+XU+SP+XM+XE+XT+XS+SP+XT+XR4X 
O+XP+XS+SP+XD+XE+SF+XT+XE+XM+XF+XS 

1910 WA1=ZT+ZA+SP+ZN+20+2T+ZE+SP+ZE+ZN 
1920 WB1=XT+XA+SP+XN+X0+XT+XE+SP+XE+XN 
1930 WEZ=ZT+ZA+ZB+2L+ZE+ZA+ZU+SP+ZR+ZE+7 
C+ZA+ZF+Z1+2ZT+2ZU+2L+ZA+2T+21+2F 

1940 WEX=XT+XA+XB+XL+XE+XA+XU+SP+XR+XE+X 
C+XA+XP+XI+XT4+XU+XL+XA+XT+XI4XF 

1950 WE1Z=2D+ZA+ZN+25+SF+2Q+ZU+ZE+2L+2L+ 
2E+SP+ZT+ZA+ZB+2L+ZE 

1960 WE1X=XD+XA+XN+XS+SF+XQ+XU+XE+XL+XL+ 
XE+SF+XT+XA+XB+XL+XE 

1970 HN ERREUR 

1980 ‘* PRESENTATION +* 

1990 HOMME EU 

2000 FOR I=1 TO 25:PRINT A$::NEXT:CLS#1: 
CLSH2: CLS#3: CLSH4: CLSHS: CLS#6: CLSH7 

2010 BORDER 13 

2020 PLOT 15,110,1:DRAW 432, 110:DRAW 43 
5236: DRAW 15,336: DRAW 15,110 

2030 PLOT 14,108:DRAW 433,108: DRAW 433,3 
38:DRAW 14,338: DRAW 14,108 

2040 FLOT 434,108:DRAW 434,3238:FPLOT 13,3 
38:DRAW 13,108 

2050 FLOT 15,15:DRAW 432,15:DRAW 432,96: 
DRAW 15,96:DRAW 15,15 

2060 PLOT 14,13:DRAW 433,13: DRAW 433,98: 
DRAW 14,98:DRAW 14,13 

2070 FLOT 434,13:DRAW 434,98:FLOT 13,98: 
DRAW 13,13 

2080 PLOT 447,15,0:DRAW 624,15:DRAW 624, 
32:DRAW 447,32: DRAWN 447,15 

2090 PLOT 446,13:DRAW 625, 13:DRAW 625,34 
:DRAW 446,34: DRAW 446,13 

2100 FLOT 445,13:DRAW 445,34:FLOT 626,74 
:DRAW 626, 13 

2110 FLOT 447,47:DRAW 624,47:DRAW 624,64 
:DRAW 447,64: DRAW 447,47 

2120 PLOT 446,45:DRAW 625,45:DRAW 625,66 
:DRAW 446,66: DRAW 446,45 

2130 PLOT 445,45:DRAW 445, 66:FPLOT 626,66 
:DRAW 626,45 

2140 PLOT 447,79:DRAW 624,79:DRAW 624,96 
:DRAW 447,96:DRAW 447,79 

2150 PLOT 446,77:DRAW 625,77: DRAW 625,98 
:DRAW 446,9B:DRAW 446,77 

2160 PLOT 445,77:DRAW 445,98:PLOT 626,98 
: DRAW ‘626, 77 

2170 PLOT, 447,110,1:DRAW 624,110:DRAW 62 
4,3B4:DRAW 447,384: DRAW 447,110 

2180 FLOT 446,108:DRAW 625,108: DRAW 625, 
386: DRAW 446,386: DRAW 446, 108 

2190 PLOT 445,108:DRAW 445,386:PLOT 626, 
286: DRAW 626, 108 


2200 FLOT 2351,3584,0:DRAW 251,351:DRAW 43 
2,391: DRAW 432,384: DRAW 351,384 
2210 PLOT 250,386: DRAW 250,349: DRAW 433, 
349: DRAW 432, 386: DRAW 350,386 
2220 PLOT 749,386: DRAW 349,349:FLOT 434, 
286: DRAW 434,:49 
2230 LOCATE 45,2:FRINT B$:LOCATE 45,3:FR 
INT G$:LOCATE 57,24:FRINT F$ 
2240 LOCATE 7,2:FRINT TLA:LOCATE 7,3:FRI 
NT TLB:LOCATE 57,20:FRINT D$ 
LEO AMEN HA EEE TEEN 
2260 ‘AFFICHE MR JUGE 
2270 JU=2:GOSUB 4520 
2280 SYMBOL 108,0,0,0,0,0,0,1,2:SYMEOL 1 
09,3,12,16,32,64,128,0 
2290 SYMBOL 112,0:SYMBOL 113,0:SYMBOL 11 
4,120,7:SYMBOL 115,1,254: SYMBOL. 116,192 
“100 SYMEQOL 120,0,0,0,1286,128,128,12:8,12 
8: SYMBOL 121,4,8, 14, 16, 32, 32, 64, 64 
2710 SYMEOL 125, 0, 9,0,0,1,6,24,532:SYMBOL 
126,0,0,0,63, 192: SYMBOL 119,1,1,i 
£2120 SYMEOL 127,0,0,0, 254, 1: SYMBOL 128,0 
,0,0,0,192,48,12%,2 
2310 SYMEOL 1:1,0:SYMBOL 152,0,0,1,1,1,i 
,2,2:6YMEOL 1:6,0:SYMBOL 144,0 
2:40 SYMEOL 135,126,128:SYMBOL 134,64,12 
8,126,126,128,128,128,12%8 
2:50 SYMEOL 157,0,0,1,2,4,4,8,8:SYMEOL 1 
45,4,8,8, 16,32, 32, 64, 126 
2:60 SYMEOL 138,64,128,1,2,4,8,16:SYMEOL 
1:9,0,0,248,4,7 
2370 SYMBOL 140,0,0,0,0,1,2,4:SYMEOL 141 
,1:0,124,130,1 
2:80 SYMEOL 142,0,128, SL 
BOL 147,0: JU=S5:GOSUR 45 
2:50 SYMBOL dd 
128,128:SYMEOL 109,0 
2400 SYMBOL 110,0,0,0,0,0,0,0,1:SYMBOL i 
11,16,16,16,16,22, 32,32, 240 
2410 SYMBOL 112,0,0,1,1:SYMBOL 115,0,2%4 
,240,240,224 
2420 SYMBOL 114,0:SYMBOL 115,0,28,62,6%, 
28:SYMBOL 125,0:SYMBOL 126,0 
2410 SYMEOL 116,2,2,2,1,1,1,1,1:SYMBQ :i 
17,0,0,0,0,0,6,0,192 
2440 SYMEOL 118,1,2,4,8,16,32,64,128:SYM 
EOL 119,0:GSYMEOL 1238,0:SYMBOL 139,0 
2450 SYMBOL 120,0:SYMBOL 121,128,64,64,6 
4,:2,16,6,4 
2460 SYMEOL 125,7,4,4,8,8,8,8,8:SYMEOL i 
24,8,8,8,0,0,96,144,128 
2470 SYMEOL 127,15,48:SYMBOL 128,128,96, 
16,8,4,4,8,8 
2480 SYMEOL 129,1,1,1,1,1,1,1,1:SYMBOL 1 
30,:5,60,172,32,32,32,32,64 
2490 SYMEOL 132,0:SYMBOL 173,0: SYMBOL 13 
.. SYMBOL 1235,0,0,192,48,14,1 
9300 SYMEOL 156,4, 2,4,2, 1,255: SYMBOL 157 


,128,128,64,64,22,16,128,64 
2510 SYMBOL 140,0,1,62,0,0,0,0,248:SYMED 
L 141,16,22 
2920 SYMEOL 142,1,2,2,2,4,4,8,16:SYMEOL 
145,0: JU=8:GOSUB 4520 
 . SYMBOL 106,0:SYMEOL 110,0:SYMEBOL 11 
24,7:SYMEOL 114,7,0,7,248 
PA SYMEOL 111,22,16,16,8,6,1,0,6:SYMBU 
L A 0,192,48 
2550 SYMBOL 115,0,192,0,0,1,6,24,124:5YM 
EUL 116,16,32,64,128 
2560 SYMEOL 117,0:SYMBOL ie L'£ 
la D: SYMEOL 122,0,0,0,0,0,0,0,Z 
570 SYMBOL 125,0,0,1, FA 15262,254,292:5v 
MEOL 124,56,240,224,192,129,1,1,1 
2580 SYMBOL 125,28,115,144,144,80,60,3:6 
YMBUL 126,0,0,255,0,0,0,0,255 
2590 SYMBOL 127,1,6,248,0,0,1,6,248:55rE 
OL 128,146,18,21,21,121,129,1,1 
2600 SYMBOL 129,0:SYMBOL 1270,0:SYMEOL 14 
0,0,0,255,259:SYMBOL 141,255,2953 
2610 SYMBDL 134,0,0,0,0,0,0,1,23:SYMEUL 1 
35,7,15,30,60, 120, 240,224, 192 
£620 SYMEOL 136,188,60,60,80,635,63:S5YMBÛ 
L'H57,1,1,1:1,288, 295 
2620 SYMEOL 138,0,0,0,0,2955,255:SYMEUL 1 
29,0,0,259,295 
2640 SYMBOL 142,255,255:SYMEBOL 143,255, 2 
55: SYMBOL 144,252,254,15,7,3,1 
2650 SYMEOL 145,0,0,0,128,192,224,240,12 
QG: JU=11:GOSUB 4520 
2660 SYMEOL 108,7,15,:30,60,60,60,60,60:5 
YMEOL 111,0:SYMEOL 112,0:SYMEQOL 115,0 
2670 SYMEOL 114,0:SYMBOL 115,0: SYMEOL 11 
b,0:SYMBOL 119,60,60,60, 60, 60, 60, 60, 60 
2680 SYMEDL 121,60,60,40, 60, 60, 4Ù, 60, 6ü: 
SYMEOL 122,0:SYMBOL 1235,0:65YMBOL 124,6 
2690 SYMEOL 1235,0:SYMBOL 126,0: SYMEOL ji 
7,0: SYMEOL 145,60,60,60, 80, 6b, 60,60, 40 
2700 SYMBOL 128,0: SYMBOL 155,0: SYMEOL 1: 
6,0:SYMEOL 137,0:SYMBQOL 1:8,0 
2710 SYMEOL 132, 60,60, 60, 60, 60, 60, 6Ù, &Ü: 
SYMEOL 1:4,460,60,60,60,60, 60,60, 80 
2720 SYMEOL 139,0:SYMBOL 146,0:SYMBOL 14 
1,0:SYMBOL 142,0 
27:30 SYMEOL 143, 
UE 4520 
2740 SYMEOL 108,60, 60, 60,60, 60, 80,60, 60: 
SYMEOL 134,30,15,7,3,1 
2750 SYMBOL 135,0,128,192,224,240,127,62 
:SYMBOL 136,0,0,0,0,0,255, 253 
2760 SYMBOL 137,0,0,0,0,0,255, 2955: SYMEDL 
158,00, 0:0,0:-299,29) 
2770 SYMBOL 139,0,0,0,0,0,2955,255 
140,0,0,0,0,0,255,255 
2780 SYMEOL 141,0,0,0,0,0,255,255:SYMEOL 
142,0,0,0,0 0,255, 255 
2790 SYMEOL 145,0,0,0,0,0, 295,239: 5 YMBUL 


O:SYMBOL 144,0: /JU=14: 605 


: SYMEOL 
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144,0, 5, 7,15,254,252 

2800 SYHEOL 145,120,240,224,128:SYMEOL 1 
46,0:JU=16:GOSUER 4520 

2810 LOCATE 57,22:FRINT E$:LOCATE 65,15 
PRINT TA1:LOCATE 63,16:PFRINT TBi 

2820 HE JE DEEE HE DEEE DEEE HE 

2850 ‘+ FROGRAMME * 

26840 HEURE HE DEEE EN 

2830 

2860 ‘CHOIX NIVEAU 

2870 WINDOW#3,63%,72,14,17:INK 0,13 

2880 CLS#i:CLS#2:LOCATE 6,8:FRINT ZRi:LO 
CATE 6,9:FRINT XR1:LOCATE 8,11 

2890 FRINT ZR2:LOCATE 8,12:FRINT XR2:LOC 
ATE 8,1Z3:FRINT ZR3:LOCATE 8,14 

2900 FRINT XR£:LOCATE 8,15:FRINT 2ZR4:LDOC 
ATE E,16:PRINT XR4 

2910 EMA=3:GOSUR 25780: NIV=<E: CLS#HZ: LOCATE 
71,24:FRINT TL(NIV) 

2QEO HER DEUE DE DEEE N 

29730 ‘MENU 

2940 CLS#1:CLS#2:CLSH3 

2950 LOCATE 10,6:FRINT ZCIi:LOCATE 19,7:F 
RINT XCI1:LOCATE 10,8:FRINT ZC® 

2940 LOCATE 10,9:FRINT XC2:LOCATE 10,10: 
FRINT ZC3:LOCATE 10,11:FRINT XC3 

2970 LOCATE 10,12:FRINT ZC4:LOCATE 10,13 
:FRINT C4: LOCATE 10,14:FRINT ZCS 

2980 LOCATE 10,15:FRINT XCS5 

2590 FÜR I=i 10 4:AT(I1)=1:RN(I)=0:AR(I)= 

O:NEXT 

2000 EtlA=é: GÜSUR 3780:ON E GOTO 30:0,307 

0,3310,25:10,2:560 

SO LOU EMEA DEEE DEEE EE 

2020 TEST SFECIFIQUE 

2020 AFI={:AFF=1:N0=0: GOSUB 
770: CLS#2:G60T0 2080 

32040 GÜTO 3170 

LOSC EEE HE DEEE JE AE 
2060 ‘TEST COMPLET 

2070 CLS#1:CLS#2:CLSHZ3s AFF= 1: AFI=0:ARF=0 
:NO=G: GÜSUR 4670 

3080 AB=0:A=0:B=0:1IF NO=1 THEN GOTO 3i7ù 
3090 GOSUR 3740:O0N APF GOTO 3100,3110,31 

20,3130 

2100 AB=AHXEH: A=AH: B=EH: GOSUE 3880: GOSUE 
2950:G0T0 3660 

2110 AB=EH: A<AHXEH: B=AH: GOSUB 3880: GOSUE 
3950: G0OT0 3660 
2120 AE=AH+EH: A 
2950:6G0T0 3660 
3130 IF AHXEH THEN CH=AH: AH=BH: BH=CH: CH= 

te) 

3140 AB=AH-EH: A=AH: B=BH: GOSUB 3886: GOSUB 
3950: GO0T0 Z660 

ZTLSO HE DEEE EE JEAN 

3160 ‘NOTES/KRECORDS 

3170 GOSUEB 4860:FOR I1=1 TO 4:1F AR(I)=ù 


3330: GOSUB 4 


=AH:B=BH: GOSUE 28860: GOSUER 
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THEN AR(I)=1:AT(1)=100 
3180 POCI)=FNPO(L) KT CD) =FNKTMD) 
3190 IF MPCI)£FOCI) THEN MPCLI=PO CL) E MT 
L)=KT(1):GOT0 3210 
3200 IF KT(I);0 AND KT(L)€MT(I) THEN MT( 
D)=KT(I) 
3210 NEXT 
3220 CLS#1:CLS#Z:CLS#3: LOCATE 8,6:FRINT 
WEZ:LOCATE 8,7: Pt WE X 
3230 LOCATE 4,9:FPRINT STRINGS (50,177) 
3240 LOCATE 4, 10: FRINT®L. « OPPERATION. « Le 
NOTE... « TEMPS, «Le so « RECORD... 1" 
5250 LOCATE 4,11:2PRINT STRINGS (50, 17792F 
OR 1=1 TO 4:LOCATE 4,11+1 
3260 FRINT USING Y;MECI) ,CINT(FD(I)/10), 
ET CD) ,CINT (MF CL) /10) ,MT CI) 2 NEXT 
2270 LOCATE 4,16: PRINT STRINGS (50, 177) 
3280 GOSUB 4210:G0T0 2940 
LRQ ARRETE HAE HE EH JE 
3300 AFFRENDRE 
> ARF=0 
) GOSUE 3330:G0T0 3400 
3330 CLS#1:CLS#2:CLS#3:LOCATE 8,7:FRINT 
WE1Z:LOCATE 8,8:FRINT WE1X 
3340 LOCATE 10,10:PRINT ZHA(1) +5F+664 (4) 
+SEA(1):LOCATE 10,11 
3350 PRINT XHA(1)+SP+GGE (4)4SEB (1) :LOCAT 
E 10,12:FRINT ZHA(2) +SP+SGA (4) +SEA (2) 
3360 LOCATE 10,13:PRINT XHA(2)+6F+SGE (4? 
+SER (2) :LOCATE 10,14 
3370 FRINT ZHA(3)+6P+S6A (4) +SEA (2) :LOCAT 
E 10,1S:PRINT XHACZ) +SP+SGE (4)4SEB (2) 
3380 LOCATE 10,16: PRINT ZHA (4) +6F+65A (4) 
+SEA (4) :LOCATE 10,17 
3290 PRINT XHA(4)+SP+S6B (4) +GER (4) :Etla=4 
:GOSUE 3780: APP=E: RETURN 
3400 NIz0: NEV=NIV-1 : AASNEVX10+ 1: BA=AA: CL 
S#1:CLS#2:CLOHS 
3410 IF NI=1 THEN GOTO 2940 
3420 ON E GOTO 3430,2:440, 3450, 3400 
2430 AB=AAXEA: A=AA: B=BA:GOTO 7470 
3440 AB=AA: B=BA: A=AAXBA: GOTO 3470 
3450 AB=AA+BA: A=AA: B=BA: GOTO 3470 
3460 IF AA<EA THEN GOSUE 4890:G0T0 460: 
ELSE AB=AA-BA: A=AA:B=EA: GOTD 7470 
3470 GOSUB 3880:CLS#3:LOCATE 66,15:FRINT 
"CA": LOCATE 63,16:FRINT "RENTRE 7!" 
2480 IF ARF<>0 THEN GOSUE 2950:G010 2500 
3490 KH=AB: JX=29+ (CU+2) +240: JY=10: GUSUE 
4590: GOSUB 4230 
3500 GOSUB 4890:CLS#1:G0T0 3410 
LS LOURDE EE MED JDE JE DE DEEE SEXE 
2520 ‘REVOIR 
3520 ARP=1:G0T0 3320 
940 RH HAE AE SEE 
3550 ‘FIN 
2560 CLS#1:CLS#2:CLS#2:LOCATE 6,8: FRINT 
TAZ:LOCATE 6,9:FRINT TE2:LOCATE 4,13 
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Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
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Toutes les possibilités à La portée du débutant comme de l'expert : 
e Récupérer une disquette endomagée ou un programme effacé 
l'E Explorer un directory, le reparer, le modifier 
e Localiser des fichiers, les cacher, les visualiser, les modifier 


Enfin la copie de sauvegarde pour tou vos 


cOPIEUR disquettes (et cassettes) protégées où pas. 
LE Comme l'Editeur, il reconnait 99 pistes, toutes 


les densites d'écriture, Les pistes déformatées, Les 
secteurs non standard, effacés ou de taille anormale. 


Des performances inédites à votre service : : - pan 
e Réparation automatique des secteurs endomagés RRETE Sheet Pr Pris E 
e Gestion automatique des extensions mémoire AREITS Mae 


Lecteur À vers Lecteur à 


e Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 
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2570 FRINT ZHA(1L)+SF+SGA (4) +SF4TAZ: LOCAT 

E 4,14:FRINT XHACI)+SF+SGB (4) +SF4+TRI 

2580 LOCATE 4,1S5:FRINT ZHA(2)+SF+SGA (4) + 

SF+TA4:LOCATE 4,16 

2590 FRINT XHA(2)+SF+GSGE (4) +SF+TB4:EMA=Z 
: GOSUR 3780:0N E GOTO 3600,3670 

2600 LOCATE 64,15:FRINT TAS:LOCATE 64,16 
tFRINT THS:CLS#1:LOCATE 19,13 

32610 FRINT TAS:LOCATE 19,14:FRINT TB8:FÜ 

KR AS=1 T0 200 

3620 SOUND 1,550-A5%2.5,2,,195:NEXT:END 

2620 CLS#5:LOCATE 65,15:FRINT TAé:LOCATE 
85,16: FRINT TE6:G0TDO 2880 

Dé A DE DEEE DE DE DE DEA SE EX 

2650 ‘S.PF TEST SI 10 QUESTIONS 

2680 AT(IAFFI=AT AFF) +1: EL=0 

2470 EC<AFF:IF AT(CAFF) 510 THEN AFF=<AFF +1 

2680 IF AFF:4 THEN NO=1 

2690 IF EC:AFF THEN GOSUE 4690 

2700 IF AFI=L AND EC£AFF THEN 35040 

2/10 GOTD 080 

LEO AMEN EE DEEE DEEE DE EE 

2750 °S.F NOMBRES AU HASARD 

2740 AHERND*# 104 (NIV-1)#1041: EH=RND#104+ CN 
IV-1)#104+1 

2350 RANDOÜHMIZE TIME:RETURN 

70 ROME AE DE DUE DÉDEDÉ EG JEÉ 

2770  S,.F CHDIX 

2780 LOCATE 14,2Z%:FRINT 2C7:LOCATE 14,2: 
:FRINT XC7 

2/90 WHILE INEEYS$::"": WEND 

ZBOOQ 1=INEEYS#S:IF T="" THEN 2800 

3810 IF T="." OR T="+" OR T="-" THEN SOU 
ND 7,17,1:G0T0 3806 

3820 E=VAL(TI:IF E<i OR E*EMA THEN SOUND 
7,17,1:G010 :806 

LHC EHSE:JX=E25:JY=22: GOSUB 4590: SOUND 7 
00,1 

2840 CLSHKZ:LOCATE 64,15:FRINT TA7::LOCAT 
E 64,16:FRINT TE7 

2950 FOR J=i TO S:FOR I=200 TO 1 STEF -i 
9: SUUND 7,1,1:NEXT:NEXT: RETURN 

2660 HA HUE HE EEE 

32870 ‘'S.F AFFICHE OFERATION 

3980 CLS#1i:CLSK#I 

3860 EH=ñ:JX=17:JY=10:GOSUR 4590: LOCATE 
18+(CT+1)#2,10:FRINT SGA(AFP) 

2900 LOCATE 18+(CT+1)#2,11:FRINT SGB(AFF 
):CU=CT:HH=R: JX=E1+(CT+1)x2: JY=10 

29710 GOSUR 45G0:CU=CU+CT:LOCATE 22+(CU+£ 
)#2,10:PRINT 2ZGA:LOCATE 22+(CU+2)#2,11 
3920 FRINT XGB:RETURN 

HP EO A6 HE DE DE DE DEEE JE EEE 

2940 G,F TEST RESULTAT CLAVIER 

2950 F=0:C=0:AC=0:E<1=0:KPS=0 

2960 LOCATE 64,15:FRINT "HO! HO !":LOCAT 
E 64,16:FRINT "DEFECHE" 

3970  LOCATE 65,17:FRINT "IOI !" 
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3980 KI=AB/10°F 
3990 IF KI1:=10 THEN F=F+1:G0T0 3980 
4000 WHILE INEEYS$<%"":WEND: RT=TIME 
4010 S=INFEYS 
4020 IF S="" AND KFS<10 THEN GOSUB 4190: 
GOTO 4010:ELSE GOTO 4030 
4030 IF KFS<10 THEN 4070 
4040 CLS#1:LOCATE 6,11:FRINT TA9:LOCATE 
6,12:FRINT TB9:ERD=1:GOSUE 4370 
4050 IF ARF=1 THEN RETURN 
4060 GOSUB 4280:GOSUB 3660:G0T0 3080 
4070 IF S="O0" THEN J=0:G0OTO 4100 
4080 IF S="," OR S="+" OR S="-" THEN SOU 
ND 7,17,1:G0T0 4010 
4090 J=VAL(S):IF J£1 OR J>9 THEN SOUND 7 
,17,1:G0T0 4010 
4100 SOUND 7,60, 1: AC=AC+J#10"F:F=F-1:JX= 
25+ (CU+2) #2+C:JY=10:KH=J:GOSUB 4590 
4110 C=C+2:IF F>=0 THEN 4010 
4120 IF ARF=i THEN 4150 ELSE 4120 
4120 IF AB<>AC THEN GOSUB 4340 ELSE GOSU 
E 4440 
4140 RETURN 
4150 IF AB::AC THEN GOSUE 4:50 ELSE S0SU 
BE 4460 
4160 RETURN 
4170 #4 HUE DEEE EN 
4180 ‘ S.F. AFFICHE TEMFS 
4190 LOCATE 45,3:FRINT USING"X ###.H# S 
L'sFNETI:EFS=FNKTI-0.03 
4200 RETURN 
AIO RARE ERERÉEREÉHÉX 
220 ‘S,P, ATTENTE FRAPFE ESFACE 
4250 CLS#2:LOCATE 12,21:PRINT ZE1:LOCATE 
12,22:FRINT XE1 
4240 IF INÉEY(47)=0 THEN WHILE INKEY#::" 
“2: WEND: SOUND 7,60, 1: CLSH2: RETURN 
4250 GOTO 4240 
4260 ‘HA HOMO SEUEDEJEJENEJEN 
4270 ‘SP. AFFICHE REUSSITE 
4280 LOCATE 70,22:PRINT USING "LH##. H#X" 
; FNFO (APP) : RETURN 
2290 HUM HEURE U 
4:00 ‘S,.F. AFFICHE TEMPS MOYEN 
4710 LOCATE 70,20:PRINT USING "XHHH.HHE" 
: FNETM (AFF) : RETURN 
LRO HN DE INDE JE DE 
47:10 ‘S.F. ERREUR 
47:40 GOSUB 4280 
250 CLS#3:LOCATE 15,13:PRINT ZE3:LOCATE 
15,14:FRINT XE3:LOCATE 64,15 
4560 FRINT "AH! AH!":LOCATE 65,16: FRINT" 
C'EST":LOCATE 64,17:PRINT'NOUVEAU 7" 
4:70 LOCATE 11,16:FRINT ZE4:LOCATE 11,17 
:FRINT XE4 
4:80 JX=43:JY=16:KH=AB: GOSUB 4590:ERD=1 
4390 FOR 1=i TO 20:SOUND 1,1#16,10:SOUND 
2,1#12,10:NEXT 


4400 GOSUB 4230:CL5#1:LOCATE 22,21:FRINT 
ZES:LOCATE 22,22:FRINT XES 

4410 GOSUB 3880:GOSUE 3950:GOSUE 

S#1 : CLSHZ: RETURN 

4420 CHROME SEEN DE EN 

4420 ‘S.F. BONNE REFONSE 

4440 IF ERD=1 THEN ERD=0:LOCATE 24,15:FR 
INT ZE6:LOCATE 24,16:FRINT. XE6: RETURN 

4450 AR (AFF) =AR (AFF) +1:GOSUE 4280:RN (AFP 

)=RN(AFF)+EPS:GOSUE 4:10 

4460 CLS#3:LOCATE 15,15:FRINT ZE2:LOCATE 
‘15,16:FRINT XE2:LOCATE 63,15 

4470 FRINT'TRES BIEN":LOCATE 64,17:FRIN 

T "CONTINUE" 

4480 FOR J=i TO 2:FO0R I1=500 TO 1 STEF -2 

O: SOUND 1,1,0.75:NEXT:NEXT | 

4490 GOSUB 4220: CLS#1:CLS#3: RETURN 

4500 UAH EDEN OMEUE EEE EE 

4510 ‘S.P. AFFICHE MR °JUGE 

4520 YUL=CHRS (108) +CHR$ (109) +CHR$ (110)+C 

HRS (111) +CHRS$ (112) +CHRS$ (113) +CHRS$ (114) +C 

HR (115) +CHRS (116) +CHRS (117) +CHR$ (1 18) +C 

HRS (119) +CHR$ (120) 

4520 YUZ=CHRS (121) +CHR$ (122) +CHR$ (123) +C 

HAS (124) +CHRS (125) +CHRS$ (126) +CHR$ (127) +C 

HAS (128) +CHRS (129) +CHRS (13 0) +CHRS$ (131) +C 

HAS (132) +CHR$ (13 

4540 YUZ=CHRS (122) +CHRS (125) CHR (136) 4C 

HRS (137) +CHRS (138) +CHRS (139) +CHRS$ (140) +C 

HRS (141) +CHRS$ (142) +CHRS# (143) +CHR$ (144) +C 

HAS (145) +CHR4# (146) 

4550 LOCATE 62,JU:FRINT YU1:LUCATE 62,JU 

+1:FRINT YUZ 

4560 LOCATE 62, JU+Z:FRINT YU3:RETURN 

AS 7 Ci ARR AD AEDÉ SE DE DE DEEE OX 

4580 ‘S.F. AFFICHE CHIFFRES GEANTS 

4590 G=0:CT=0:CG=0:E1=0 

4600 EI=EH/10°6G:CT=G 

4610 IF Él:=10 THEN G=-G+1:G0T0 4600 

4620 AFF (G)=INT (EH/10G) : EH=EH-AFF (6) #10 

“G:6=6-1 

4670 IF G:=0 THEN 4620 

4640 IF AFP+4 THEN CG=17-(CT+1)%2 

4650 FOR D=CT TO © STEP -1:LOCATE JX+CG 
,JY:FRINT ZHA(AFF (D) ) 

466 LOCATE JX+CG,JY+1:FRINT XHA(AFF (D) ) 
1 JX=JX+2: NEXT: RETURN 

4670 MTL ILSLLILSISLSSLSSSSS. 

4680 ‘S.F AFFICHE SERIE/NOTE 

4690 IF AFF£2 THEN 4770 

4700 LOCATE 8,10:FRINT WA1:LOCATE 8,11:F 

RINT WEÏ:LOCATE 10,13: AFF=APP-1 

4710 PRINT SEA(AFF):LOCATE 10,14:PRINT S 

EE (AFF) 

4720 AT (AFF) =AT (AFF) -1:JX=64: JY=14:KH=CI 
NT (FNPO (AFF) /10):GOSUR 4590 

4720 JX=67:JY=16:KH=10:GOSUB 4590:FLOT 5 
14,120: DRAW 558,190, 1 


230: CL 


4740 PFLOT 515,130: DRAW 559,190:GOSUE 423 
O: CLSHZ: AFF=AFF +1 

4750 IF NO=1 THEN RETURN 

4760 IF AFI=1 THEN RETURN 

4770 CLS#1:CLSHk2:GOSUE 4860 

4780 LOCATE 12,10:FRINT SMA:LOLATE 12,11 
:PRINT SME 

4790 LOCATE 9,15:FRINT ZHA(1)+ZHA(0)+S5F+ 
GEA(AFF)+2S:LOCATE 9,16 

4800 FRINT XHA(1)+XHA(0)+SP+SER (AFF) +XxS: 
LOCATE 25,22:FRINT XMA:LOCATE 25,25 

4810 FRINT XMB:FOR AS=100 TO 60 STEF -i: 
SOUND 7,AS,5,12,,,4:NEXT 

4820 ENV 2,10,-1,8,5,-1,4:ENT -2,80,1,1, 

29,2, 1:SOUND 7,50, 100,15,2,2,20 

48:20 CLSK2:RETURN 

4840 HUE NE EU 

4850 ‘S.F, REMISE CONTEUR 0 

4860 LOCATE 70,20:FRINT"Z 00.00£Z":LOCATE 
70,22: FRINT"X 00.002": RETURN 

4870 HD HEENEUNEEOUNEEONEGEUEEUES 

4880 ‘S.F. TEST AFFREND 


4890 AA=AA+I:IF AASNIV#10 THEN AA=NEV+#10 
+1: BA=EA+I 

4960 IF BA:NIV#10 THEN NI=i:RETURN 

4910 RETURN@ 


Une ligne téléphonique est à 
votre disposition, vous mettant 
en contact direct avec la rédac- 
tion. Ceci est un service sans 
égal ! Respectez simplement les 
horaires et les jours que nous 
vous indiquons : 

MERCREDI de 9 h à 12h et de 
14hà17h. 

VENDREDI de 9 h à 12 h seule- 
ment. 

Tout appel en dehors de ces cré- 
neaux sera refoulé : ne dépensez 
pas inutilement votre argent | 
Le numéro : 


99.52.9841 ‘” 
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. 
EDÜCATIF 


ARCHIBALD A LA 
DECOUVERTE DES 
ALGORITHMES 
CABINET J. DOURISBOURE 
Educatif 


Voici un produit totalement 
nouveau qui présente un modèle 
pédagogique permettant de 
comprendre ce qu'est 
“l'intelligence” d’un ordinateur. Le 
but de cette formation est 
d'arriver à présenter ce qu'est un 
raisonnement algorithmique et 
comment un ordinateur raisonne en 
passant par le jeu grâce à deux 
bonshommes se nommant Archibald 
et Super-Archibald. 

Le jeu consiste à trouver, en un 
minimum de propositions, une 
combinaison de 5 lettres tirées au 
hasard parmi 9 lettres (principe de 
jeu similaire au Master Mind) ; 
pour découvrir cette combinaison, 
Archibald effectue une suite de 
raisonnements et d'opérations qui 
constituent ce qui s'appelle un 
algorithme. L'intérêt de cet 
éducatif est de présenter sous 
forme de schémas de couleurs les 
systèmes de déduction d'Archibald 
et de Super-Archibald, ce qui 
permet de voir concrètement le 
chemin parcouru pour arriver à une 
décision entraînant une action, et 
ce à partir d'une déduction; grâce 
à ces différents systèmes de 
déduction, il est possible de 
comprendre le “raisonnement” de 
l'ordinateur. - 

La disquette est accompagnée d'un 
ouvrage complémentaire qui 
constitue un support pour effectuer 
les différents exercices proposés. 
Cet éducatif est original par sa 
nouvelle approche de l'informatique 
passant par le jeu. Mais ayant 
voulu conserver une approche 
rigoureuse du problème, il y a de 
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| déduction d'Archibald et de 


ce fait quelques aspects qui, à 
mon avis, risquent de rebuter le 
public visé (enfants à partir de 
9/10 ans) : les systèmes de 


décision de Super-Archibald sont 
déjà relativement complexes et 
lorsqu'on arrive au système de 
déduction de Super-Archibald avec 
toutes ses ramifications, les 
schémas deviennent trop difficiles, 
à moins d'avoir l’aide d'un adulte 
averti. D'autre part, les personnes 
ferventes de l'auto-formation 
risquent de ‘’se noyer” dans 
l'ouvrage d'accompagnement sauf 
s'ils pratiquent une méthode 
homéopathique, c'est-à-dire à très 
petites doses à la fois. 

Interrogé par CPC, le cabinet Jean 


Dourisboure déclare faire une 
approche différente de 
l'informatique grâce à une nouvelle 
sorte de logiciel : 

Ilest peut être intéressant pour 
vous de savoir pourquoi, en tant 
que cabinet d'organisation 
informatique spécialisé en 
systèmes globaux d'organisation et 
de communication nous avons . 
lancé la collection “Intelligence 
Artificielle”’ dont le 1°° produit est 
“’Archibald à la découverte des 
algorithmes". 

Nous avons pris cette décision 
car : 

— d'une part nous ne sommes pas 
d'accord sur ce qui s'écrit sur les 
systèmes experts : ‘un système 
expert serait une technique avec 
base de connaissance et moteur 
d'inférences"” alors que pour notre 
part, nous considérons qu'un 
système expert est d'abord et 
avant tout, la traduction 
informatisée du raisonnement d'un 
spécialiste expert dans la matière 
considérée ; 

— d'autre part, passionné par la 
pédagogie/communication, nous 
pensons qu'il faut donner au 
système éducatif des logiciels 
“intelligents” qui fassent ressortir, 
à l'évidence, que l'ordinateur n'est 
pas intelligent mais que 
l'intelligence émane de l'homme et 
des règles du jeu qu'il a mis dans 
l'ordinateur. 

C'est parce que l'on aura compris 
que l'ordinateur n'est qu'un outil 
que l'on saura l'utiliser 
“intelligemment” et qu'il nous 
permettra de libérer tout ce qui 
fait notre richesse : l'imagination, 
la créativité... 


posées et non en lignes. 

Le second sujet d'études concerne 
le système métrique où il est 
demandé à l'élève de faire un 
rapprochement entre une image et 
une unité de longueur, de masse 
ou de capacité. 

Pour terminer, ce logiciel s'attaque 
au problème douloureux des 
accords de participes passés. Etant 
donné la difficulté que rencontre 
un enfant devant ce sujet, il est 
proposé un apprentissage. ‘tout en 
douceur" avec 4 niveaux de 
difficulté. 

Cet éducatif a une réalisation très 
propre et une utilisation très 
agréable grâce à l'emploi de 
fenêtres. || faut cependant préciser 
que certains exercices seront 
difficilement réalisables par un 
enfant seul, mais la présence d'un 
adulte pour guider résoudra le 
problème. 


MATHS 
SECOND CYCLE 
MICRO C 

Educatif 


Ce logiciel s'adresse aux élèves, de 
la classe de 2nde à la terminale ; 
il traite de façon claire et 
attrayante des 4 sujets suivants : 
tout d'abord, il est possible 
d'obtenir la représentation 
graphique de toute fonction de la 
forme y = f(x}, après avoir fait un 
choix judicieux des axes et des 
unités sur l'écran. 

Il'est également possible de 
calculer des intégrales, tout en 
ayant aussi l'interprétation 
graphique de ces intégrales, de 


| AE EE 


DISQUETTE 
EDUCATIVE 6 
COBRA SOFT 
Educatif 


Cette disquette est réalisée pour 
enfants étant en CE ou CM {il y a 
un niveau de difficulté différent 
pour le CE ou le CM). L'enfant 
peut, grâce à cet éducatif, 
apprendre les 4 opérations de 
base ; il est très intéressant de 
noter que les opérations sont 


calculer des suites récurrentes de 
type Un+1 = f{Un) ou aUn+2 + 
bUn+1 +cUn = 0 et enfin de 
résoudre des équations du second 
degré. 

Voilà un bon outil de travail où les 
représentations graphiques sont 
bonnes, les explications claires ; 
seuls les calculs sont parfois un 
peu lents pour les tracés de 
courbes, mais il suffit d'avoir un 
brin de patience en ce qui 
concerne les fonctions demandant 


des calculs plus compliqués pour 
certaines coordonnées. 


MATHS-6 
MICRO C 
Educatif 


Voici un outil permettant aux 
élèves de 6° de tester leurs 
connaissances sur leur programme 
de maths. Après avoir appris 
comment écrire une fraction à 


de calculs portant soit sur les 4 
opérations ou, plus difficile, sur les 
fractions ou les nombres relatifs. 
L'aspect géométrie n'a pas été 
oublié puisque sont également 
proposées des figures avec calculs 
d'aires ou des problèmes de 
symétrie orthogonale. 

Présenté sous un aspect non 
rébarbatif pour l'élève, cet éducatif 
a le mérite de proposer des 
exercices d'un bon niveau de 
difficulté, ce qui permet une 
véritable progression. Par contre, 
étant donné cette dificulté, il 
serait bon que l'enfant ait des 
explications sur le résultat lorsqu'il 


GEOMETRIE 
ESPACE ET SOLIDE 
MICRO C 

Educatif 


Avec ce logiciel très complet, 
plusieurs possibilités vous sont 
offertes : tout d'abord, vous 
pouvez faire des constructions 
géométriques à partir de points, 
droites ou cercles, le tout étant 
accompagné de commentaires. De 
plus, avec l'option calculer, vous 
pouvez, par exemple, avoir 
l'équation d'une droite après avoir 
donné les coordonnées de 2 points 
la constituant. 


faire subir toutes sortes de 
transformations allant de la simple 
translation à la similitude. 

Lorsque vous avez bien assimilé 
tous les principes de géométrie 
plane, vous passez à la 
construction de solides en 
perspective, que ce soit fil de fer 
ou faces cachées, sans oublier la 
construction de figures dans 
l'espace avec la possibilité de 
remplissage en couleur des 
différents plans. 

Grâce à cet éducatif, vous avez la 
possibilité de clarifier vos 
connaissances théoriques, car le 
nombre d'options n'étant pas 


l'écran et placer un point, l'enfant 


pourra s'exercer sur des problèmes réponse. 


n'arrive pas à trouver la bonne 


Ensuite, après avoir créé des 
figures simples, vous pouvez leur 


limité, la construction est ' 
progressive. 


<< 
RSIUSCS 


\ 

Pour les gens pressés, un truc qui utilise 
la touche CTRL associée aux touches H, 
J,K, Let |, et permet un affichage par 
tabulation évitant l'emploi d'une boucle. 
Il suffit de rentrer dans une ligne de pro- 
gramme les caractères de contrôle mêlés 
aux caractères à afficher. 

10 PRINT ‘’LJlbJoJnJjJoJuyJr'" 

affiche le mot BONJOUR en diagonale 
sur l'écran. Les majuscules correspon- 
dent à l'appui simultanné de CTRL et de 
la lettre en question. 

Remerciez Dominique BOINET de 
COGNAC qui vous simplifie la vie ! 
Plus besoin de réinitialiser votre CPC 
quand vous voulez récupérer des carac- 
tères normalement dessinés après les 
avoir reconfigurés, Hugues FERAUGE 
d'AUBERGENVILLE nous signale un 
CALL &BB4E qui fait ça très bien. 

Un MOVE ECRAN très rigolo et efficace : 
10 ON BREAK GOSUB 160 

20 A = &BC00:B = BDOO 

30 X=46:Y = 30:BORDER 2 

40 IF INKEY(0)>-1 THEN Y=Y +1 

50 IF INKEY(2)>-1 THEN Y =Y-1 

60 IF INKEY(8)>-1 THEN X=X +1 
70 IF INKEY(1)>-1 THEN X=X-1 

80 IF X=64 THEN X=0 

90 IF X=-1 THEN X=63 

100 IF Y=39 THEN Y =0 

110 IF Y=-1 THEN Y =38 

120 OUT A,2:OUT B,X 

130 OUT A,7:OUT B,Y 

140 " FOR 1=1 TO 1OO:NEXT | 

150 GOTO 40 

160 END 

Avec ce truc de Patrick MANGENOT de 
PARIS 10, il va falloir vous accrocher à 
vos sièges car il y a de la houle ! 
Pascale LOCATELLI de GRENOBLE com- 
plète le truc de Nicolas PINAULT paru 
dans le N° 16 pour les caractères en 
deux couleurs. 

Pour les 664 et 6128, l'adresse est 
&B72F. 

Pascale nous communique deux autres 


adresses qui changent la couleur de 
fonds en rayures. Il suffit de POKER en 
&B730 l'incrément puis de faire un CLS. 
Itou pour le 464 en &B290. 

Un dernier truc, enfin, qui sera très utile 
aux têtes de linotte qui se sont laissées 
aller à effacer des fichiers par :ERA et 
qui, depuis, le regrettent, amèrement. 
E. de JAEGGER, qui devrait nous 
envoyer son adresse s'il veut recevoir 
le magnifique ouvrage qu'il mérite gran- 
dement, se transforme en Saint-Bernard 
de l'informatique et vient au secours des 
imprudents par ces quelques lignes de 
BASIC. 


10 KEY 
138,'":USER,O:SAVE’‘ + chr$(34) +‘‘ 
NOM" + chr$(13) 


20 POKE &A701,229 

30 LOAD ‘’NOM'' 

Après le chargement du programme 
effacé, tapez sur le point du pavé numé- 
rique. Et repassez en :USER 0. Vous 
constaterez que votre programme a bien 
regagné la place qu'il n’aurait jamais dû 
perdre. 

L'explication vient du fait que les pro- 
grammes effacés sont attribués à 
l'USER 229. Si vous avez écrasé votre 
programme, par enregistrement d'un 
autre, ne comptez pas le retrouver | 


APPEL A TRUC 

Un lecteur lance un SOS pour un pro- 
gramme qui lui permettrait d'éffectuer un 
SCROLLING multidirection, saurez-vous 
répondre à sa demande ? Nous atten- 
dons des programmes en BASIC et en 
assembleur, la solution la plus élégante 
dans chaque catégorie, sera publiée et 
récompensée. 

Comment |! Vous n'êtes pas encore à 
vos claviers ? Pierre TACONNET 


BUGS OU MYSTERES, 
DES SOLUTIONS ! 


François GASTON de TOULOUSE n'a 
pas apprécié que l'on qualifie de ‘‘’bugs'” 
des phénomènes se produisant sur 
l'AMSTRAD et qu'il a, lui, bien identifiés. 
C'est vrai que tout s'explique... mais il 
faut bien admettre que, si ce qui se pro- 
duit sur le 464 n'arrive plus sur les autres 
machines de la gamme, c'est qu'il y avait 
une petite anomalie, non ? 


Nous faisions allusions au 10’ICIRCLE 
qui sur 464, après un LIST devient 
1O'IRCLE (le C a disparu...). L'explica- 
tion donnée par notre lècteur est la sui- 
vante : l’octet suivant le symbole | de 
l'extension RSX sert à la reconnaissance 
de celui-ci (il est mis à 0). Dans un com- 
mentaire, ce caractère n'est pas inter- 
prété.. mais l’octet suivant est ignoré par 
l'affichage : un simple dump mémoire 
permet de s’en rendre compte. 
Soulignons, néanmoins, que ce phéno- 
mène ne se produit pas sur un 664 ou 
un 6128. Si les dump mémoire obtenus 
sont bien identiques, l'interprétation 
éffectuée par la routine LIST n’en reste 
pas moins différente. 

Quant au ‘’Syntax Error’’ sur une ligne 
de DATA, il serait simplement dû à la dis- 
cordance entre le type de variable évo- 
qué dans le READ et celui mis dans la 
DATA. 

10 READ A 

20 DATA TOTO 

provoque un ‘‘’Syntax Error’’ pas très jus- 
tifié car on a plutôt affaire à une erreur 
de type (Type mismatch).. Est-ce pour 
des raisons de rapidité de l’analyseur ? 
En tous cas, merci à notre lecteur pour 
ces précisions | 


DEBUTANT 


une aide précieuse ! 


pour : 


- taper, relire,corriger, 


une méthode efficace Les K7 
quidictent en audio tous vos 
programmes 


pour 30,00 F/ mois 


SAGA DIFFUSION 
95, rue Gambetta 
29210 Morlaix 98 88 22 32 
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AUC 


Noël LAGNEU 


AT 


LR 
CW 


HARDCOPY SUR PCW 


N otre série d'articles concernant la gamme des PCW et les 


applications possibles du langage machine sur cet pporsl 


continue. Notre sujet d’aujou 


‘hui et du prochain num 


ro est 


la recopie d’écrans graph ques et alphanumériques. D'aucuns s’éton- 
neront d’un tel souci : l'appui simultané sur les touches EXTRA, SHIFT 


et PTR provoque déjà l’impression de l'écran ! En fait, nous 


arle- 


rons ici de hardcopies dans différents modes et sens, et de différen- 
tes tailles. De plus, la lecture de cet article consolidera vos connais- 
sances sur l’imprimante du PCW, sa mémoire écran et son langage 
machine. Nous continuerons le mois prochain en donnant différents 
programmes, dont une recopie d'écran en ‘’’caractères’’. 


L'IMPRIMANTE DES PCW 
ET LE GRAPHISME 


Une des raisons du succès des PCW est 
bien sûr l'imprimante intégrée à la 
machine. Elle est contrôlée principale- 
ment par l'envoi de codes de comman- 
des appelés séquences ESCAPE. Celles- 
ci sont généralement les mêmes que 
pour une imprimnate EPSON LX 80, d'où 
le qualificatif de ‘‘compatible EPSON’. 
(Toutefois, l'imprimante du PCW ne pos- 
sède pas de DIP-SWITCHES de sélection 
accessibles à l'utilisateur et comporte un 
interfaçage figé avec le PCW, ce qui 
limite l'intérêt de cette notion.) 
Quelques séquences ESCAPE de confi- 
guration nous intéresseront principale- 
ment aujourd'hui : 


ESC © : Réinitialisation de l'imprimante. 
Un RESET de l'imprimante en Basic est 
donc réalisé par l'ordre suivant : 
LPRINT CHR$(27) +CHR$(64) 


ESC A 8 : Commande de l'alimentation 
papier en 8/72e de pouce. La distance 
entre chaque ligne imprimée est par 
défaut fixée à 1/6° de pouce. Toutefois, 
cette Valeur rend les lignes d'impression 
non contiguës. Cette séquence ESCAPE 
permet donc l'impression de graphismes 
sur plusieurs lignes qui se touchent. 


ESC K +n1 +n2 : Impression graphique 
simple densité. Cette commande posi- 
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tionne l'imprimante en mode graphique 
simple densité. N1 et N2 sont respecti- 
vement les poids faible et poids fort du 
nombre d'octets constituant les données 
graphiques (maximum 480). 

Par exemple, LPRINT CHR$(27) + ‘*K'"+ 
CHR$(10)+CHRS(O) avertit l'impri- 
mante que les 10 prochains octets 
qu'elle recevra seront des données gra- 
phiques. Dans chacun de ces octets, un 
bit positionné active l'aiguille concernée 
de la tête d'impression, le poids fort étant 
en haut. 


ESC L+n1+n2 : Impression graphique 
double densité. Cette commande est 
identique à la précédente, mais le nom- 
bre maximal de points par ligne passe à 
960. 


Beaucoup d'autres séquences ESCAPE 
existent pour l'imprimante du PCW. Une 
liste exhaustive peut en être trouvée 
page 125 à page 142 du Livre 1 du PCW 
(couverture bleue). La lecture de ces 
pages complètera aussi éventuellement 
la description des possibilités graphiques 
de l'imprimante. 


IMPRESSION GRAPHIQUE EN BASIC 


Nous sommes à même d'imprimer main- 
tenant une ligne graphique. Examinons 
le petit programme GRA1.BAS : une 
valeur est demandée en entrée, qui sera 
le nombre d'octets graphiques à impri- 


mer. Puis une séquence ESCAPE permet 
d'initialiser le mode graphique simple 
densité. Enfin, lignes 40 et 50, la valeur 
255 est envoyée à l'imprimante en don- 
née graphique : toutes les aiguilles sont 
alors activées. 

Essayez le programme en entrant la 
valeur 10 : un petit carré se dessine. La 
valeur 100 entraîne l'impression d'une 
barre noire. Malheureusement, un pro- 
blème apparaît rapidement pour des 
valeurs importantes : essayez la valeur 
200, par exemple ! Des petits parasites 
Viennent entacher la pureté de la ligne. 
Le Basic est en fait le grand responsa- 
ble : le buffer d'impression est par défaut 
de 132 caractères. En Basic AMSOFT, 
sur les CPC, la simple commande WIDTH 
255 avait le mérite de remédier à cet 
inconvénient en supprimant les retours- 
chariot incorporés par le Basic en fin de 
buffer. En Basic Mallard, cette instruc- 
tion reste inopérante. Il faut donc en 
découdre avec le langage machine pour 
imprimer des lignes graphiques de plus 
de 132 octets. 


IMPRESSION GRAPHIQUE 
EN LANGAGE MACHINE 


Pour remédier à l'inconvénient précé- 
demment cité, et pour préparer les hard- 
copies (nécessairement écrites en lan- 
gage machine), nous avons écrit le sous- 
programme GRA.ASS en assembleur. Il 
permet l'impression graphique de N 


octets : N est passé en argument en 
entrée, et les octets de données sont 
situés à partir de l'adresse F100. Arbi- 
trairement, la routine a pour origine 
l'adresse FO00O. 

L'appel à la fonction n° 5 du BDOS per- 
met l'envoi à l'imprimante d’un octet qui 
est contenu dans le registre E (remarquez 
les sauvegardes obligatoires des regis- 
tres avant chaque appel). Les premières 
instructions permettent l'envoi de la 
séquence ESCAPE (caractères 27 et 76 
en décimal). Les poids faible et fort du 
nombre d'octets passé en argument sui- 
vent dans cet ordre. Cette variable est 
adressée directement par le registre 


Listing de GRAI.EAS 


10 INPUT “Longueur du trait : 
20 n24=FIX(n4/256):nl#=nt-256tn2% 


"nt 


t 


30 LPRINT CHR$(27)+"K"+CHRS(n1#)+CHR$(n24) 


40 FOR i=1 TO N4 

50 LPRINT CHR$(255);:NEXT 
60 LPRINT 

70 6OTO 10 


double HL en entrée. Il ne reste alors qu'à 
envoyer à l'imprimante les données gra- 
phiques une par une. Dans cette partie du 
sous-programme, le registe double BC 
est considéré comme compteur, alors 
que HL adresse les octets graphiques. 

Le programme GRA2.BAS met en œuvre 
cette routine d'impression graphique. Les 
lignes 100 à 190 installent le code 
machine de GRA.ASS à partir de 
l'adresse FO00. La ligne 200 initialise la 
mémoire graphique à partir de F100 avec 
FF. La ligne 210 rend contiguës les lignes 
d'impression, et la ligne suivante permet 
de sélectionner le mode densité désiré. 
Ce dernier point est réalisé en envoyant 


Listing de GRA2,BAS 


100 MEMORY &HEFFF 


110 DATA 4hES,&hES,BhES, &hOE, &h0S, BRIE, Bh1B, EhCD 
120 DATA 4h05, 8h00, BRIE, &h4B, 8h0E, &h0S, BCD, &h0S 
130 DATA 4h00 ,8hE1 ,BhSE, &OE, 8h05, &hCD, BhOS , Eh00 
140 DATA &hET 8h23, 8hSE, &hOË, 8hOS, 8hCD, EOS , Eh00 
180 DATA 4hET ,8h4E, 4h23, &h46, 8h21 ,8h00,BhF 1, BhCS 
160 DATA BhOE 8h05 ,8hES ,&hSE, BhCD, 8h05, Bh00, LhE 
170 DATA BACI , 8h23, 8h08, &hAF 4h89, 8h20, &hFO, &hBE 


180 DATA &h20,8&hED,&hC9 


190 FOR i=4HF000 TO 4HFO0O+S8:READ n:POKE i,n:NEXT 
200 FOR j=8HF100 TO &HF500:POKE j,8HFF:NEIT 


210 LPRINT CHRS(27)+"A"+CHRS(8) 


220 INPUT " Sinple densite:0 Double densite'1 ",denf 


230 IF dent=0 THEN POKE 4HFO0B, &H4B 
249 IF denf=1 THEN POKE &HFO0E, 8H4C 
250 INPUT “Nombre d'octets : ",nonb4 
260 test#=&HF 000 

270 CALL test#(nonb4) 

280 LPRINT 

290 60TO 250 


à l'imprimante le code ‘’L’’ au lieu du 
code ‘’K'’ dans la séquence ESCAPE. 
Enfin, la ligne 250 permet de déterminer 
le nombre d'octets graphiques. Une 
valeur de 200 ou plus ne génère plus de 
parasites, heureusement ! 

La conception des hardcopies graphiques 
en elle-même fera l’objet de notre pro- 
chain article, par manque de place. Nous 
y créerons aussi la routine COPYCHRS 
du Basic Mallard permettant de savoir si 
une case de l'écran alphanumérique 
contient du graphisme ou un caractère 
connu. Ainsi, la recopie rapide d'écrans 
alphanumériques sera possible. 
Joyeuses fêtes et au mois prochain. 


Listing de GRA.ASS 


800$ EQU 0005 
oRG F000 
F000 ES PUSH HL HL : adresse du nonbre d'octets 
F001 ES PUSH HL 
F002 ES PUSH HL 
F003 0€ 05 LD C,05 
F005 IE 1B LD E,IB 
f007 CD 05 00 CALL 800$ Envoi du caractère ESCAPE 
FO0A JE 4C LO E,4C 
F00C 0E 05 LD C,05 
FO0E CD 05 00 CALL BDOS Envoi de "K" 
nus F011 El POP HL 
F012 SE LD E,CHL) 
F013 0€ 05 LD C,05 
F015 CD 05 00 CALL 800$ Envoi poids faible nombre d'octets 
F018 El POP HL 
F019 23 INC HL 
FOIA SE LD E,CHL) 
FOIB 0€ 05 LD C,05 
FOID CD 05 00 CALL BDOS Envoi poids fort nombre d'octets 
F020 El POP HL 
F021 4E LD C,CHL) 
F022 23 INC HL 
F023 46 LD B,CHL) £C : Nombre d'octets graphiques 
F024 21 00 F1 LD HL,F100 
F027 C5 EQUC: PUSH BC Sauvegarde conpteur 
F028 0E 05 LD C,05 
FO2A ES PUSH HL Sauvegarde adresse données 
F028 SE LD E,CHL) 
FO2C CD 05 00 CALL 800$ Envoi caractère graphique 
F02F El POP HL 
F030 C1 POP BC 
F031 23 INC HL 
F032 08 DEC BC 
F033 AF XOR À 
F034 89 CP. Ç 
F035 20 F0 JR NZ,BOUC Boucle sur BC 
F037 B8 CP B 
F038 20 ED JR NZ,8OUC Boucle sur BC 
FO3A C9 RET 
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INSTALLATION 
D'UN LECTEUR 31/2 - 720 k 
DANS LE PCW 256 


J.P. HOESSLER 


e tout le logiciel système peut être copié sur une disquette, 


L'" d’un lecteur double face de 720 k-octets est certain : 


+ les nombreuses manipulations de disquettes sont supprimées, 
+ facilités d'utilisation de grands logiciels. 


Le choix du format 3'°1/2 

e le lecteur sera logé dans le PCW et ali- 
menté par le PCW, 

e une disquette 3’’1/2 (2 faces) vaut 
27 F, alors que celle du 2° lecteur FD-2 
vaut 75 F, 

e à capacité égale, la disquette 3'’1/2 
est 2 à 3 fois moins chère qu'une 3”, 
e le format 3’’1/2 correspond à un stan- 
dard (IBM, par exemple). 


REALISATION 


Celle-ci ne pose aucun problème particu- 
lier si ce n’est le soin à apporter à la réa- 
lisation du câble d'interconnexion, un 
peu spécial, entre la fiche femelle 26 bro- 
ches, en attente dans le PCW, et le 
connecteur mâle de 34 broches du lec- 
teur à installer. 

Deux techniques peuvent être 
employées, soit l’utilisation de câble en 
nappe avec des connecteurs à sertir, soit 
une interconnexion par fils soudés. La 
première solution est la plus rapide, mais 
attention, des décalages sont à prévoir 
(voir explications plus loin). 


L'alimentation 

Le lecteur 31/2 ne nécessite qu'une 
tension unique 5 volts. Disponible sur la 
broche 4 (fil orange) de la fiche d’alimen- 
tation en attente dans le PCW, il est pré- 
férable d'utiliser la tension 12 volts, dis- 
ponible sur la broche 1 (fil rouge) de cette 
même fiche et de l’abaisser à 5 V à l’aide 
d’un régulateur. 

La connexion directe de la fiche d'’ali- 
mentation du PCW au lecteur serait 
donc destructrice. 


La mécanique 
Après avoir enlevé le couvercle à l'arrière 
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du PCW, couper à l’aide d’une pointe de 
couteau bien chaude les 6 ponts en plas- 
tique retenant le cache avant. En accé- 
dant par l'avant, on éloigne soigneuse- 
ment le reste des 3 ponts de droite, cela 
pour obtenir un positionnement correct 
du lecteur qui sera maintenu par une ou 
deux équerres vissées sur le lecteur 
(trous taraudés de 3 mm) et sur les 
colonnettes en plastique du châssis 
PCW. Vu par l'avant, le lecteur sera posi- 
tionné le plus possible à droite (loin du 
tube), bouton d'éjection en haut, à 
droite. Protéger le lecteur de toute pous- 
sière métallique. 


Câblage 
Réaliser les connexions selon le schéma 
de la figure 1. 


Explications pour le sertissage 

Sertir à l’aide d’un étau, le connecteur 
34 broches sur une extrémité du câble. 
Séparer l’ensemble des conducteurs 1, 
2, 3,4,5 et 6 du reste du câble sur la 
motié de sa longueur. Même traitement 
pour le couple 13, 14. introduire ensuite 
les conducteurs restants dans le connec- 
teur 26 broches en respectant les repè- 
res des broches 1. Procéder au sertis- 
sage et enfin souder ensemble les extré- 
mités des conducteurs 2 et 34. 
Vérifier que le câble est conforme au 
schéma. 


LISTE DU MATERIEL 


1 lecteur 3°’1/2 — 720 k (double tête 80 
pistes par face), marque CITIZEN, dispo- 
nible chez A.Z. Computer (*) à 990 F à 
l'unité, 

1 connecteur femelle 34 broches (à ser- 
tir ou à souder), 


1 connecteur mâle 25 broches (idem), 
20 cm câble plat à sertir de 34 conduc- 
teurs, 

1 régulateur +5 V (7805), 

2 heures de travail. 


(* A Z COMPUTER, 99 rue Balard, 
75015 Paris. 


MISE EN ROUTE 
UTILISATION 


Charger CPM + normalement avec le lec- 
teur À. Le message ‘’2 disc drive’’ doit 
apparaître à l'écran. introduire une dis- 
quette 31/2 (D F), charger l'utilitaire 
DISCKIT3 qui va formater 160 pistes. 
A partir de là, le drive B s'utilise comme 
le drive A sans restriction, aussi bien 
sous CPM que sous Locoscript. Une dif- 
férence pourtant : 

Il faut toujours charger le système avec 
le lecteur A. 

Une première application : 

Avec A> PIPB:=A -+ copier la face 2 
système 

Avec B> PIP B:=A:+.+ copier la face 3 
puis 4 de la deuxième disquette intro- 
duite dans A. 

Afficher les caractéristiques du lecteur B 
par : 

B> SHOW B:I[DRIVE] 


Remarques 

Il est normal qu'à chaque appel de l’un 
des lecteurs, les deux se mettent en 
route (le signal ‘’motor on’’ est unique). 
Avant de refermer le couvercle, il ne 
reste pus qu'à introduire 8 boîtiers 
mémoire #PD 41257 de NEC ou TMS 
4257 de Texas dans leur support, dépla- 
cer le ‘’strap’” inférieur et vous êtes en 
possession d'un PCW 8512. 


SCHEMA D'INTERCONNEXION DU LECTEUR 31/2 


FICHE PCW CONNECTEUR LECTEUR 
ee me [rm 


Head load 
Busy 

Drive select 3 
Index 

Drive select O 
Drive select 1 
Drive select 2 
Motor on 

Dir. select. 
Step 

W. data 

W. gate 
Track O 

W. protect 

R. data Brochage du 7805 
Select side 1 

Ready 


Impaires 


ALIMENTATION 


FICHE PCW CONNECTEUR LECTEUR 


Régulat. 
+5 V 


1 +2V À ———— 1 +5 V 

2 Masse 2 Masse 

3 Masse M 3 Masse 

4 +5 V 4 
REMARQUES 


1 - Les liaisons à réaliser sont matérialisées par … 

2 - Les broches 2 et 34 sont à relier ensemble. Cela permet le chargement de la tête dès que le lecteur est prêt. 

3 - Attribuer le numéro 1 au lecteur en positionnant correctement le deuxième switch de son bloc de 4 commutateurs. 
4 - Avant de brancher le lecteur, vérifier la tension +5 V et contrôler à l’ohmmètre votre câble de liaison. 

5 - La longueur des liaisons n'est pas critique ; mais une vingtaine de centimètres suffisent. 

6 - Prévoir un petit radiateur pour le régulateur (ou une surface métallique telle que la cornière de: fixation). 
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LE LOGICIEL SÉRIE 
VERSION 2 EST ARRIVÉ 


Noël LAGNEU 


tement JMN Diffusion de la société OTB (50 ans de présence et 


L: logiciel série évolue. Maintenant commercialisé par le dépar- 


de sérieux à Lyon), il est disponible dans sa version 2 pour 
CPC 464 avec DD1, CPC 664 et 6128 et PCW. Il existe également une 


version MS-DOS. 


Le Logiciel Série transforme véritable- 
ment votre AMSTRAD en outil téléma- 
tique complet et performant : archivage 
d'écrans, constitution automatique de 
fichiers (texte ou base de données), mai- 
lings (en français : publipostages) entiè- 
rement automatiques, communication 
(échange de textes, de programmes, de 
fichiers, etc.). 

Le Logiciel Série de JMN Diffusion 
deviendra immédiatement l'indispensa- 
ble compagnon de votre Minitel. 


PREMIERES IMPRESSIONS 


e Le logiciel a été complètement 
refondu, tant au niveau présentation que 
contenu. 

° Présentation soignée et professionnelle 
du produit. Jaquette imprimée orange en 
carton très rigide, look pro. Rien à voir 
avec un jeu. Présentation directement 
inspirée de la version MS-DOS pour PC. 
° Documentation sérieuse (35 pages) et 
claire. Un commentaire et des photos 
d'écrans pour expliquer chacune des 
fonctions. 

e Câble de liaison interface série - Mini- 
tel avec prise modulée : c'est un gage 
de fiabilité. La protection du logiciel est 
intégrée au câble (bonjour les pirates.) ; 
pas de problème de copie de program- 
mes. 


ATTENTION 

L'interface série est indispensable au 
fonctionnement du logiciel et n’est pas 
fournie. En prévoir l'acquisition si ce 
n'est déjà fait. Par les temps télémati- 
ques qui courent, ce ne sera pas un 
achat superflu. 


La mise en service est simple. Le câble 
destiné à relier le Minitel à l'interface 
série du micro est fournie avec le logi- 
ciel. Aucune erreur possible. Raffinement 
suprême, un programme de test vous 
permet de tester la liaison ordinateur- 
Minitel, et vous indiquera si votre Mini- 
tel est retournable où non (voir la fonc- 
tion communication). 

Le menu principal propose les 10 fonc- 
tions du Logiciel Série que nous allons 
maintenant détailler. 


1 - ‘‘L'émulation’’ du clavier du Minitel 
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vous permet de remplacer le clavier si 
peu pratique de votre Minitel par celui, 
6 combien chéri, de votre AMSTRAD 
préféré. C'est quand même plus confor- 
table, non ? 


2 - L'enregistrement de pages vidéotex 
sur disquette. Première constation : l’en- 
registrement est instantané et chaque 
écran n'occupe qu'un kilo-octet environ 
sur la disquette (à comparer au 16 kilo- 
octets de certains autres logiciels...). A 
cela une raison unique : pas de conver- 
sion laborieuse en direct, les écrans sont 
enregistrés tels quels (c'est-à-dire en 
codes vidéotex), ce qui, outre la rapidité 
et la concision, offre bien d’autres avan- 
tages : la possibilité de reproduire sur le 
Minitel les écrans très exactement tels 
qu'ils ont été enregistrés (4 tailles de 
caractères, 8 couleurs, clignotement, 
inversion, soulignement, graphisme 
mosaïque ou plein, et même le dyna- 
misme l), la possibilité de convertir à pos- 
teriori les écrans suivant dffférents 
formats. 

Deux types d'enregistrements sont pré- 
vus : l'enregistrement de l'écran présen- 
tement visualisé sur le Minitel et l’enre- 
gistrement semi-automatique. Dans ce 
cas, après l'enregistrement de l'écran, le 
logiciel simule l’enfoncement de la tou- 
che SUITE du Minitel pour appeler la 
page suivante. Utilisé avec l'annuaire 
électronique, c'est vraiment pratique. 


3 - Visualisation des écrans sur le Mini- 
tel : c'est la copie conforme (voir 1). 


4 - La communication entre ordinateurs, 
ou comment utiliser un modem gratuit, 
performant, et agréé, pour échanger des 
informations à 1200 bauds. C'est peut- 
être la fonction la plus spectaculaire du 
Logiciel Série, elle seule, j'en suis certain, 
peut en justifier l'acquisition. Elle permet 
simplement (et simplement n’est pas un 
vain mot.) de transmettre tout type 
d'information : textes ASCII, mais aussi 
programmes (Basic, .COM, etc.), textes 
Locoscript non convertis en ASCII, c'est- 
à-dire avec tous leurs attributs, fichiers 
binaires quelconques. 


Dernière précision, cette fonction est 
compatible avec la fonction équivalente 


de la version MS-DOS du Logiciel Série, 
donc échange possible de fichiers quel- 
conques entre MS-DOS et CP/M (et vice- 
versa !l)…. 


5 - Impression des écrans enregistrés sur 
imprimante AMSTRAD standard : rien à 
dire. Les graphismes sont simplifiés, l’im- 
portant, c'est le texte. 


6 - La transformation des écrans en 
fichiers standards. Le Logiciel Série offre 
4 formats que nous n'avons pas.la place 
de détailler (le guide de l'utilisateur y 
pourvoit) : 

+ Format texte (compatible Locoscript), 
e Format fichier (type mailing), 

e Format données (compatible DBase Il), 
+ Format annuaire électronique (compa- 
tible DBase Il). 


7 - L'édition d'étiquettes adresses direc- 
tement à partir de l'annuaire électroni- 
que. S'adapte à tout type d'étiquette. 
Permet d'ajouter une première ligne fixe 
à l'adresse (par exemple : Monsieur le 
Directeur.…..). Le code postal est automa- 
tique pour Paris, Lyon et Marseille. Pour 
les autres villes, le programme est auto- 
apprentisseur de codes postaux : vous 
n'aurez pas à donner deux fois le même 
code postal au programme. 


8 - La visualisation des pages vidéotex 
sur l'écran de l'ordinateur. En couleur sur 
CPC. 


CONCLUSION 


Visiblement, le Logiciel Série est un logi- 
ciel professionnel. Il ne cherche pas à 
réinventer le Minitel, il se veut un outil 
complémentaire au Minitel qui en décu- 
ple les possibilités et l'aspect pratique. 
Il y parvient brillamment pour un prix rai- 
sonnable de 700 F. 

Quelques mots sur la version MS-DOS 
(because PC 1512), elle offre deux fonc- 
tions complémentaires : l'enregistrement 
entièrement automatique de l'annuaire 
électronique et la recherche, automati- 
que elle aussi, des codes postaux. Son 
prix : 1950 F HT. On chuchote chez JMN 
qu'une version équivalente sera disponi- 
ble avant la fin de l’année pour PC 1512 
à moins. de 1000 F TTC. 


SUR PCW 
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Les clés de l'efficacité 


CENTRE EMERAUDE. CIDEX 47, 33150 CENON. TEL. 56.40.94.75 


ERPRSE 


Pour toute documentation, joindre grande enveloppe timbrée à 3,50 E 


POURQUOI 


CHOISIR TURBO PASCAL 


Yves GERAULT et Stéphane CLOIREC 


près ces quelques généralités, passons aux choses sérieuses 

(façon de parler !). Nous allons aujourd’hui nous familiariser 

avec notre outil de travail, c'est-à-dire l'éditeur de TURBO. 
Il vous faut, en effet, connaître un minimum le maniement du logi- 
ciel pour pouvoir l’exploiter sans être toujours plongé(e) dans le 
manuel pour rechercher telle ou telle fonction : rien de plus éner- 


vant lorsque l’on travaille sur un programme. 


Il est nécessaire de bien prendre cons- 
cience d'une chose : c'est à l'éditeur, et 
presque uniquement à lui, que vous 
aurez à faire au cours de vos séances de 
programmation. Il est l'intermédiaire 
entre vous et le logiciel proprement dit, 
vous servira à élaborer vos créations et 
à en corriger les erreurs, etc. Il est abso- 
lument indispensable de bien le maîtriser 
si vous voulez tirer parti des ressources 
exceptionnelles du Pascal. 
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La première chose à faire, avant même 
de commencer à travailler, est d’effec- 
tuer une copie de sauvegarde de votre 
original de Turbo-Pascal : une fausse 
manœuvre est très vite arrivée ! 
Munissez-vous d'une disquette vierge, et 
transférez la totalité des fichiers que 
contient votre original sur cette disquette 
d'une des manières suivantes : 

e Introduisez une disquette contenant le 
système d'exploitation CP/M dans le 


drive et tapez ICPM. Entrez ensuite l'or- 
dre DISCCOPY (si vous ne possédez 
qu'un seul lecteur) ou l’ordre COPYDISC 
(si vous en avez deux). L'ordinateur se 
chargera alors de la copie en vous 
demandant régulièrement de changer de 
disquette (vous devrez mettre tour à tour 
dans le drive votre original et votre dis- 
quette vierge). 

e Une fois ces opérations faites, rangez 
votre original en lieu sûr. Vous utiliserez 
pour la suite la copie réalisée. 

La démarche suivant va être la fabrica- 
tion d’une disquette de travail, appelée 
aussi ‘’Working-disc'’ ou ‘‘disquette- 
work'’. Pour cela, il va tout d’abord fal- 
loir formater une autre disquette vierge 
au standard CP/M. Il suffit, à partir, par 
exemple, de votre original du système 
CP/M, de taper l'ordre ICPM puis FOR- 
MAT et d'introduire votre disquette 


: Jean-Luc AULNETTE 


Illustrations 


Figure 3 | 


vierge dans le drive. Une fois le forma- 
tage effectué, faites un catalogue de 
votre copie de Turbo-Pascal en tapant 
DIR. Votre disquette doit contenir les 
fichiers indiqués sur la figure 1. 


En utilisant un des utilitaires CP/M de 
transfert de fichier (PIP, FILECOPY, 
DISCKIT), vous allez copier les différents 
fichiers dont vous ällez avoir besoin : 

— TURBO.COM est le fichier principal, 
il contient tous les modules du Pascal, 
— TURBO.MSG contient les messages 
d'erreurs, 

— TURBO.OVR gère les fichiers Overlay 
(que l’on expliquera plus tard), 

— CPCINST.COM sert à modifier les 
couleurs de travail. 

Vous pouvez procéder de la manière sui- 
vante : 

— Introduisez votre original CP/M et 
tapez l’ordre FILECOPY TURBO .», répon- 
dez N à la question ‘‘Confirm ?', puis 
suivez les indications que vous donne 
l'ordinateur pour la duplication. 

— Ensuite, remettez en place votre 
CP/M et tapez FILECOPY CPCINST.COM 
et procédez de même. 

Si vous possédez une imprimante, vous 
pourrez avoir envie de conserver une 
trace écrite de vos programmes : copiez 
alors aussi sur votre disquette-travail le 
fichier LISTER.PAS qui vous permettra 
de le faire facilement. 

Si vous possédez un CPC 6128, vous 
pouvez exploiter la mémoire supplémen- 
taire de votre ordinateur en faisant fonc- 
tionner Turbo sous CP/M Plus au lieu de 
CP/M 2.2 : il vous faut alors copier éga- 
lement les trois fichiers TNST (soit 
TINST.COM, TINST.DTA et 
TINST.MSG). Nous verrons plus tard 
l'installation sous CP/M Plus. 


IMPORTANT 

e Votre disquette-travail doit contenir le 
système CP/M pour pouvoir fonctionner, 
Turbo Pascal nécessitant en effet ce 
système d'exploitation. 

e La série d'articles qui suivra supposera 
une installation sous CP/M 2.2 (c'est-à- 
dire la version de base qui vous a été 
livrée). Ceux qui veulent installer Turbo 
sous CP/M Plus devront cependant 
conserver une version ‘‘normale’’. 

Les autres fichiers présents sur la dis- 
quette originale sont différents exemples 
d'applications sous Turbo (gestion de 
fenêtres, mini-tableur, etc.) ainsi que des 
informations générales dans le fichier 
ALIRE (aussi appelé READ.ME dans cer- 
tains cas). || n’est pas utile, pour l'ins- 
tant, de les copier, car il faut conserver 
de l’espace sur votre disquette pour sau- 
vegarder vos propres programmes}. 
Maintenant que vous vous êtes consti- 
tué une copie de travail de Turbo, 
introduisez-la dans le lecteur ; signalez 
au système d'exploitation que vous avez 
changé de disquette en tapant la com- 
mande CTRL-C (rappelez-vous que vous 
avez initialisé l'ordinateur .grâce à une 
disquette système CP/M, et comme vous 
travaillez maintenant sur votre copie- 
travail, il faut prévénir l'ordinateur de ce 
changement). 
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REMARQUE 

La commande CTRL-C s'obtient en 
appuyant sur la touche CTRL (signifiant 
‘“’control'') que vous maintenez lorsque 
vous appuyez ensuite sur la touche C. 


Maintenant, vous allez enfin, après de si 
longs efforts, prendre contact avec 
Turbo-Pascal. Vous allez lancer le pro- 
gramme en utilisant la commande 
TURBO”. Le logiciel vous accueille par 
une page de présentation telle que mon- 
trée par la figure 2 (pour la version 
464/664). 


Pour l'instant, tapez YŸ (oui) pour inclure 
dans le programme les messages d'er- 


reurs explicités (qui sont hélas en 
anglais). Il est tout de même plus agréa- 
ble, au début, d'obtenir une réponse telle 
que +‘; expected 8 plutôt que © error 01 
8 ! 

(Sur l'écran doit s'inscrire : 
A:TURBO.MSG) 


Loading 


Vous arrivez maintenant sur le menu 
principal auquel vous reviendrez souvent, 
c'est lui qui contrôle les opérations 
d'entrées-sorties, l'accès à l'éditeur et 
différentes autres options que nous 
allons maintenant détailler (figure 3). 


NOTE : Si vous n'avez pas chargé les 
messages d'erreurs, vous n'obtiendrez 
pas les mêmes chiffres sur les lignes 
Text et Free qui indiquent des adresses- 
mémoires. 

Vous voyez sur l'écran le signe ‘>: il 
vous indique que vous avez la main, 
donc qu'il attend que vous tapiez sur une 
touche de votre clavier. Ce signe est sou- 
vent appelé ‘‘’Prompt''. 


Voici les différentes possibilités qui vous 
sont offertes : 

— W: Vous choisissez le fichier sur 
lequel vous allez travailler en répondant 
à la question ‘’Work file name:”’. Il faut 
taper un nom standard sous CP/M, soit 
un mot de 8 lettres maximum avec ou 
sans extension (l'extension ‘’.PAS"" sera 
automatiquement rajoutée si vous n’en 
mettez pas une autre). Turbo cherchera 
d'abord sur la disquette si le fichier existe 
pour le charger en mémoire (s'il n'existe 
pas, il affiche ‘’New file’’ et le crée). 
— M: Permet de définir un fichier prin- 
cipal (l’utilisation de tels fichiers sera 
expliquée plus tard). 

— E: Vous envoie dans l'éditeur où vous 
pourrez taper votre source. Si vous avez 
essayé cette commande, je vous indique 
quand même comment en ressortir pour 
qu'on puisse continuer | Tapez CTRL-K, 
puis D et vous retournez au menu prin- 
cipal. 

— C: Lance la traduction de votre fichier 
de travail (programme source) en binaire. 
Il en résulte la création d’un code-objet 
qui peut être exécuté par l'ordinateur. 
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— 0: Permet de choisir différentes for- 
mes de compilation. Nous les détaillerons 
le mois prochain. 

— R: Permet l'exécution du programme. 
Si le source n'a pas encore été compilé, 
il le sera automatiquement avant l'exé- 
cution. 

— S: Sauvegarde votre source sur dis- 
quette. Vous pourrez remarquer que si 
vous voulez changer de fichier de travail 
avoir sauvegardé le précédent, Turbo 
vous 
demande si vous ne voulez pas le sau- 
ver en affichant : 


Workfile NOMFICH.EXT not saved. Save 
(Y/N) ? 


ATTENTION . 

La commande S$ doit absolument être uti- 
lisée avant toute compilation ou exécu- 
tion, sinon, bonjour les dégâts ! Si votre 
programme contient une erreur qui 
‘’plante”’ l'ordinateur à l'exécution, vous 
ne pourrez que très, très difficilement 
récupérer le fruit de votre labeur |! 


— D: Vous donne le catalogue de la dis- 
quette. Si vous désirez le catalogue total, 
tapez ENTER à la question : DIR mask : 
Sinon, vous pouvez utiliser toutes les 
options d'un catalogue CP/M en utilisant 
les symboles ? et «. 

Exemple : Si vous voulez le catalogue de 
tous les fichiers source de la disquette, 
tapez ‘’*.PAS"" et Turbo affichera tous 
les programmes sauvés avec l'extension 
.PAS. : 

— X: Si vous voulez, en cours de ces- 
sion, utiliser un autre programme CP/M, 
entrez son nom. À la fin de son exécu- 
tion, le contrôle sera redonné à Turbo. 

Nous allons prendre un exemple : vous 
êtes en train de travailler avec Turbo 
quand vous vous apercevez avec horreur 
que vous n'avez toujours pas répondu à 
la lettre de votre chère belle-mère. Vous 
décidez d'utiliser un traitement de texte : 
tapez ‘’X'', puis son nom ‘'TRAI- 


rappelle votre oubli et vous, 


TEX.COM'' et vous vous retrouvez 
devant la feuille de papier informatique. 
(N'oubliez pas de sauvegarder votre 
fichier-work d'abord .!) 

Une fois votre lettre. terminée, vous 
demandez la fin de travail et vous vous 
retrouverez automatiquement sous 
Turbo avec votre travail là où vous l'aviez 
laissé ! 


REMARQUE : 

Le programme que vous utiliserez en 
cours de cession devra se trouver sur la 
même disquette que Turbo. 


— Q: A utiliser lorsque vous voulez arré- 
ter de travailler sous Turbo et revenir à 
CP/M. Turbo Pascal étant respectueux 
des heures que vous avez passées en sa 
compagnie, il vous rappellera à l'ordre si 
vous avez oublié de sauvegarder votre 
programme. Libre à vous, ensuite, de 
passer outre | 

— L: non présente à l'écran, cette com- 
mande est pourtant INDISPENSABLE à 
connaître par l'utilisateur de Turbo. Elle 


doit, sous peine de plantage, à la pre- 
mière sauvegarde, être frappée à CHA- 
QUE FOIS que l’on change, soit de face, 
soit de disquette quand vous êtes sous 
le contrôle de Turbo-Pascal. 

Le logiciel vous demandera : 
drive :"” 

Vous pourrez alors répondre A ou B sui- 
vant le nombre de lecteurs et la place de 


LENS À 


MICRO 


"New 


INFORMATIQUE 


Revendeur qualifié 


conseil AMSTRAD 
Point pilote 

nouveautés, softs 

et périphériques 


96, Av. Alfred Maës 
62300 LENS 
Tél.: (21) 28.72.44 


la nouvelle disquette dans ceux-ci. 


Après avoir détaillé le menu de Turbo, RECTIFICATIF 
nous passerons en revue les principales Quelle similitude y a t-il entre la coque d’un bateau à voile et un micro ordina- 
commandes de l'éditeur proprement dit teur ? Je n'en vois guère plus que vous si ce n’est que j'ai rédigé le texte des 


le mois prochain. articles 1 et 2 de ‘’BRANCHER LE TURBO'’ sur un bateau. Le travail de vulgari- 
sation se fait en essayant d'expliquer des choses compliquées par des exem- 
ples simples pris dans l'environnement immédiat de l’auteur et du public auquel 
il s'adresse. L'auteur travaille par association d'idées. Un des risques de cet exer- 
cice de style est d'utiliser un mot propre au sujet traité dans un sens figuré. Le 
texte devient confus voire incompréhensible. 
Pour mon premier essai dans ce mode d'écriture j’ai pêché par excès de con- 
fiance en moi pensant que je maîtrisais suffisamment les notions de base que 
je vulgarisais pour ne pas pouvoir m'égarer dans des lapsus. 
Vanité.. vanité. Si sur un navire les parties qui travaillent se nomment les œuvres 
vives et les autres les œuvres mortes, il n’en est pas du tout de même sur un 
ordinateur. 
Pour redonner à ces articles leur sens réel il est nécessaire de remplacer 
systématiquement : 
— mémoire vive par MEMOIRE DE TRAVAIL ; 
— mémoire morte par MEMOIRE DE STOCKAGE. 
Le but de ces articles n'était pas d'expliquer la structure Hardware des CPC mais 
de sortir de l'ordinateur les pièces du puzzle qui seraient nécessaires pour com- 
prendre l'utilisation d’un langage autre que celui installé de base sur les micros 
CPC. Mais puisque nous avons abordé la question donnons en passant les défi- 
nitions des mémoires vives et mortes. 
— Une mémoire est dite vive lorsqu'il est possible d'écrire une information dedans 
et bien sûr de pouvoir la relire par la suite. 
sur : livres, logiciels, accessoires, — Une mémoire est dite morte lorsqu'il n’est possible que de la lire. 
PURE 4 : Comme vous le voyez, ce sont des notions qui ne sont pas sans rapport avec 
périphériques, Sur présentation k le sujet traité mais qui en diffèrent suffisamment pour qu'aucune confusion entre 
du magazine (jusqu'au 31/01/87) ces termes soit acceptable. 
1, rue du Plat En conclusion, je présente mes plus humbles excuses aux lecteurs et à la rédac- 
; tion de la revue CPC et les assure qu'à l'avenir je relirai mes textes avec une 
59800 LILLE attention plus soutenue pour qu'un tel incident ne puisse se reproduire. 


Tél. 20.30.05.60 


Y. GERAULT 


ENFIN UN SPECIALISTE 
S'INSTALLE DANS LE 93 1 


AHSTRAD xx COMMODORE 
THOHSON xx H.S.X 


REPARATION TOUTES MARQUES 


DÉLLAL 7 JOURS MALO FC am À À 


Utilisez le serveur MHZ 


EU eV Lam Len mt tem ctom pr L Lan ! 


24 h./24 à votre disposition sur Télétel 3 


Composez le 3615 
puis tapez le code MHZ 


*PROHOTIONS D'OUVERTUREX 


logiciels a partir de 35 
disquette 3 pouces... 78 
joystick quikshotIiI.. 65 
ordinateur HSX....,, 790 
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CULOTTE ETATS CET 
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Au menu : . 

— Les dernières nouvelles de l’électronique et 
de l’informatique 

— Les petites annonces de MEGAHERTZ, CPC et 
THEORIC 

— Les sommaires de vos revues 

— Et une messagerie sérieuse et personnali- 
sée 

ES CP NS ARE TASER | 


S rue CHARLOT 93700 DRANCY 
TEL:48.95.96.81 


du MARDI au SAMEDI 


AMS MUSIC 


Dominique WILLE 


AMS MUSIC est un programme qui vous permettra de faire de la musique simultanément sur 3 voies, 
en temps réels, avec plusieurs options. 


AMS MUSIC A 2 MODES DE FONCTIONNEMENT 
1. Mode 1 


° La rangée de touches du haut du clavier ([1] à [t]) est programmée pour fournir des suites et séquences d'accords sur 3 voies. 
Les touches sont programmées de cette manière : 

La touche = la note fondamentale de l'accord 

+ <SHIFT> = accord mineur ou majeur 


FA ee) eee EI 


Fa 


Do Ré Fa Sol La Si do re mi fa sol sans <SHIFT> = Majeur 
Do Ré a Fa Sol La Si do re mi fa sol avec <SHIFT> = Mineur 


On peut changer la ‘‘consistance’’ des accords avec les touches du curseur + <SHIFT> 


Tempo Enveloppe de volume 


[1] 
T | +<SHIFT> + <SHIFT> 


Numéro de la suite d'accords automatiques 


À | + <SHIFT> + <SHIFT> 


Toutes les transformations sont immédiatement prises en compte, même ” “pendant” l'exécution d'une note ou d'une suite de notes. 
Si l'on ne veut pas entendre toute la suite d'accords, une simple pression sur une autre touche abrogera ce qui est joué. 
e Les touches du pavé numérique, [1] à [4], changent les sonorités des sons joués sur le reste du clavier. 


OUOOOUUOOCT;:C- 


Mi Fa Sol La Si 
Les de guitare basse octave 1 


Mêmes touches et [2] = 


Son corde pincée octave 1 


Mêmes touches et E = 


Son guitare basse octave 2 


Mêmes touches et [+] = 


Son corde pincée octave 2 


Le] 21 


Enveloppe de volume 


coniocioiolciesinte 


Mi Fa Sol La Si 
Son de cloche d'église octave 1 


Mêmes touches et [2] = 


Instrument moyenâgueux octave 1 


Mêmes touches et [:] S 


Son cloche d'église octave 2 


Mêmes touches et [+] = 


Instrument moyenâgueux octave 2 


En ea PR AE PS AC ES 8 AE CE 


Mi Fa Sol La 
Son de carillon octave 1 


Mêmes touches et [2] = 


Accordéon octave 1 


Mêmes touches et [s] = 


Son carillon octave 2 


Mêmes touches et [+] = 


Accordéon octave 2 


Remarques : si l’on presse l’une de ces touches avant la fin d’une suite d accords, celle-ci est abrogée et on entend la touche 
pressée. 

— Quand on presse une des touches du pavé numérique, celle-ci est ménédsss et les sons sont tous changés. 

— Touche [COPY] = entrée directe des données (celles-ci concernent uniquement les suites d'accords ; on peut les consulter 
sur le premier tableau : celles pour les sons sont sur le deuxième tableau et ne sont pas changeables). 

— Touche [ENTER] (grande et petite) = changement de mode. 


2. Mode 2 


Celui-ci est conçu de manière à ce que l'utilisateur puisse construire ses accords de 1, 2 ou 3 voies par simple pression simul- 
tanée des touches concernées. 


ENS ÈS EEE 


A env + ai pi ss ; pi env su 
1 3 

sur sur sur sur sur sur sur sur sur 

l'a V2 V3 l'a V2 V3 V1 ve V3 


Une pression sur une de ces touches règle une enveloppe de volume et de tonalité sur la 


“ololoiolaluiolnieloioi 
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Voie 1 = 


Sol La Si do 


TOUONNOOQE 


Voie 3 = 


RAGE AOL Eur TE Remarque : Pour revenir au mode 1, appuyer sur [ENTER]. 


Ne pas frapper un accord sur la même voie sinon cela ne marche pas. 


+ 
+ 
[e] 
[es 


Quand vous serez devenu un virtuose du clavier, appuyer sur [SHIFT] 
+ [V] pour que la vitesse de scrutation du clavier augmente (les don- 
nées ne seront plus réaffichées) et [SHIFT] +[L] pour revenir en clavier 


Même vitesse normale avec réactualisation des données. 


chose 


+ 
+ 


<[ <] se] <[ >|] 
Here 


LE PROGRAMME 


100 à 390 = affichage de l'écran 1620 à 1840 = choix de l'accord 2890 = variable 

430 à 710 = Env(s) et Ent(s) - Restove sur les notes 2900 = attente 

750 à 790 = variables - qu'il faut 2910 = choix de la ligne 

830 à 870 = attente touches - Goto ‘choix du rythme” 2930 à 3390 = notes = valeurs 
claviers (850 et 870) 1860 à 1980 = touches de fonctions = décision | 3400-3420 = les notes sont jouées 
accords (860) 1990 = retour car caractère erroné 3440 = fin = init et retour à mode | 
ou fonctions (840) 2010 à 2340 = datas et vérification (Goto 2080) | (accords automatiques) 

910 à 1250 = 1erclavier 2380 = choix des accords automatiques À 

1. choix (910) 2420 à 2710 = choix des accords automatiques | Adaptation = 664 et 6128 : 

2. note 2750 à 2770 = affichage périodique des données| ligne 2760 = &ADB2 — &AD99 

3. Goto ‘‘la ligne où le son est joué’’| 2780 = [COPY] = entrée manuelle des données | & ligne 2770 = &ADB2 — &AD99 

1260 à 1610 = 1er clavier 2790 à 2840 = sons du clavier 1 et 2 &ADB3 — &AD9A 

1. choix (1260) 2850 = mode II &ADB4 — &AD9B 

2. note fin 

3. etc. 2850 à 2880 = env et ent 


Remarque : le temps d'affichage de la page écran est de 2,99 secondes. Si au bout de 4-5 s. rien ne s'est passé, tapez en aveugle 
‘Ink 1,26" + [ENTER]. 


DO HE SEM JEUNE HE 


2750 : (obtenu par CTRL Q Arr  HAONICER ES 


2750 : ? obtenu par CTRL K 0 bé gi 
40 ‘+ presente * 
SO ‘+4 ## 


60 ‘###x AMS-MUSIC ###4# 
ZO HUIT IEAIETEAE IAE 


100 MODE 2:INK O,1:INK 1,1:BORDER 24 
110 DIM a(31) | 
120 FOR a=128 TO 137:KEY a,CHR$(a+16):NE 


130 WINDOW #1,3,78,25,25:PEN #1,0: PAPER 

#1,1 

140 LOCATE 25,23 PRINT "34636463 

LÉSSS SLT ESS SU 

150 LOCATE 25,3: PRINT "##4# AMS-MU 
S IC  ***" 

160 LOCATE 25, 4: PRINT "46362646 DFAF IEEE 

ELLES ST SSL 

179 -LOCATE 3,10:PRINT"Vitesse des":LOCAT 

E 3,11:PRINT"Accords 30" 

180 LOCATE 19,10:FRINT"Enveloppe“:LOCATE 
19,11: PRINT"de volume 11" 

190 LOCATE 34,10:PRINT"Enveloppe":LOCATE 


x 00,000 
< D Re ns 34,11:PRINT"de tonalite 4" 
Gore e° PR anne DR ne 200 LOCATE 50,10:PRINT"Accords & sons"; : 


LOCATE 50,1i:FRINT"automatique 6" 

219 LOCATE 65, 16:FRINT"'Nom du Rythme" 
220 LOCATE 3,16: PRINT"Mode :"3;:LOCATE &, 
17:PRINT'"Sons & accords"; 

2:30 LOCATE 19,16: FRINT"Types de sons:"3: 
LOCATE 19,1/:PRINT"Clavier O1"; 
240 LOCATE 2:4,16:FRINT"canaux No: ":;:LOCA 
1E 34,17:PRINT""; 
230 LOCATE 65,16: FRINT"enveloppe de“:;:L0 
CATE &5,17:PFRINT"'ton:"; 

260 LOCATE 50,16: FRINT"Enveloppe de“::L10 
CATE 59,17: PRINT "volume: “; 

270 b=0:FOR a=211 TO 419 STEF 8.5:b=b+1: 
a(b)i=a:MEXT 

280 b=G:FOR a=199 TO 431 STEF 9.5:6-=b+i: 
FLOT aibj,198:DRAW a,362:NEXT 

295 FLOT 199,382: DRAW 431,382: DRAW 419,3 
989: LRAW 211,398:DRAW 199,382 

200 PFLOT 153,260: DRAW 633,260: DRAW 633,22 
O:DRAW 17,220: FLOT 14,260: DRAW 14,260:FL 
OT 634,220:DRAW 634,260 

216 b=0:FOR a=13 TO 633 STEF 124:b=b+1:a 
{b)=a: FLOT a,220:DRAW a,260:FLOT a+1i,220 
:DRAW a+1,260:NEXT 

320 FLOT 68,300: DRAW 583,300 
© 3230 b=0:FOR a=68 T0 583 STEP 103:b=b+1:F 
LOT atb},260:DRAW a,2300:PLOT a(b)+1,260: 
DRAW a+1,300:NEXT 
340 FLOT 13,160:DRAW 853,160: DRAW 633,12 
O: DRAW 13,120: PLOT 14,160:DRAW 14,160:FL 
OT 6:4,120:DRAW 634,180 
350 b=0:FOR a=13 TO 633 STEF 124:b=b+1l:a 
(b)=a:FLOT a,120:DRAW a,160:PLOT a+1,120 
:DRAW a+1,160:NEXT 
360 b=0:FOR a=68 TO 583 STEF 103:b=b+1:P 
LOT atb),160:DRAW a,200:FLOT aib)+i,1460: 
DRAW a+1,200:NEXT 

370 FLOT 68,200: DRAW 583,200 
380 OUT 8F600,16:FOR a=1 TO 100:NEXT: OUT 
&F 609,0 

390 INK G,i:INK 1,24: BORDER 1 

400 
ADO ARR DEEE BE DE DES DE DE DE DE JE DE DE D DEEE EEE 
ÉTLT SI. 

420 ‘ 

30 ENV 1,1.15.,1,15,-1,1 

440 ENV 2,1,15,1,15,-1,10 

450 ENV 53,5,5,1,15,-1,1 

460 ENV 4,3,5,1,15,-1,10 

470 ENV 5,5,5,10,15,-1,1 

480 ENV 6,2,5,10,15,-1,10 

490 ENV 7,1,5,10,1,-5,10,1,10,10,1,-10,1 
0,1,10,1 

500 ENV 8,1,15,1,5,-1,5,5,-1,10,5,-1,15 
910 ENV 9,i,15,1,1,0,100,15,-1,10 

520 ENV 10,10,-1,5,5,1,1,10,-1,6,5,1,1,5 
571,6 

950 ENV 11,1,193,20,1,-15,10,1,15,40,1,-1 


5,10 

540 ENV 12,1,15,1.15,-1. à 

550 ENV 13,15,-1,10 

Soi ENV 14,15,-1,2 

576 ENV 15,20,-1,1 

530 

S90 ENT -1,1,1,3,2,-1 220162239101 


+ 
4 


bi ENT Sr les dede dede le dos Es ds EYE 
4 
Si ENT -5,1,1,942,-145, 241.842: —i4de is 
59 


620 ENT -4,1.,2,6,2,-2,94,2,2,03£s72s8i,2 

.8 

650 ENT -5,1,3,7,2,-I,7,2,3,7,2. 23,741, 

7 

64 ENT -6,1,3,8,2,-5,8,5,5,8,2,-27,8.1,2 

,8 | 

650 ENT -7,1,4,9,2,-4,9,%,4,9,%,-4,9,1.4 

,7 

dôtû ENT -B,1,4,5,2,-4,5,2,4,5,2Z,-4,5,i.4 

59 

670 ENT -9,5,1,10,6,-1,10,3,1,i1iu 

680 ENT -10,1i,0,15,90,-4,1,30,-4,i,50,4, 

1,50,-4,i 

694 ENT -i1,i00,-1,100 

700 ENT -12,24,1,5.6,-1,3.3,1,5 

710 ENT -15,3,-1,5,6,1,5,3,-1,9 

720 

VEUT TS LS LSISISISISISLSISILLSSI IIS SL 

CTI S LS. 

740 

730 EVERY 10,0 GOSUB 2730 

760 SPEED KEY 20,1 

770 temps=20:acc=bé:eni=ii:enz=4:ciavier= 

lioctave=i:t$="1274567890-" 1 "4+CHR$ (234) +" 

#68" (0) =H#":ciavieri$="zxcvbnm,.asdfgah)jk 

1:35 Jqwertyuiop@l VL" 

785 clavieri$="quertyuiopélasdfghjkl:;:z 

xcvbnm,./\vL" 

790 mo$="Sons %& accords “:nocl$="Clavier 
01" 

800 

BL THERE AMEN DEAD IDÉES DE DE DE DE DE DIE DE ED AE JE DEEE 

ÉLITS 

820 ‘ 

30 1$=INEEYS:IF 1$="" THEN 8350 

840 IF 1$:CHK#(224) THEN 1870 

6850 IF INSTRiclavier2$,1i$) THEN 870 

886 CALL &ECA7:GOTO 1620 

870 ON clavier GOTG 910, 1266 

880 ‘ 

B90 ‘HUE HEIN DEA DE DE DE DE DE JADE SE DER DE IE DE DE DEF DEEE SE DE EEE 

HRRKHHEÉ 

700 

910 nocl$="Ciavier Oi":UN INSTR(clavier 

1$,1%) GOTO 720,9:30,940,950,960,970, 980, 

990, 1000, 1016,1020,1030,1040,1050,1060,1 


000 
63 


HO hiz4lessGit 26i0 


far fées, lasser, Len, LIU, fier, Liu, 1145, 
LP HISG TI 1200, 1210, 1 
.l#41,i243 


LEO 1256 


e intez Bi: GOT 1250 1559 nn=6583:GO0OTO 
“80 notezis:6G10 i2Sù 1440 hn=569:G010 © 


S35 totezi ss 50 2SÙ 1850 hn=Sé: GUTO 
: 1480 hn=4/t: Gi iD 

1476 nn=4is: GG 3 
1486 hn=:73: 600 À 
1450 nn=35S: 5010 
1366 hn=2:19: GOT 2 
uit Hn=GSé:bülQ € 


LA 

1CTé hn=ËE 

PoiC hin=/SBib0tO E73È 
ide nn=/18:68f0 2 
ILEO nnréig: BOID 2 


iüëe nnz5éki: 5010 2770 ISzûù hna=851: 6610 
les: hn=Sûüss:GOIQ 2790 1550 nn=754:5070 


ie bnz473:G0Ot0 2790 1540 nn=716:G0TD 
lui hozdèss: GOT 2790 1250 hn=638: 50T0 
Lio huz!79:G0r0 2790 1560 hn=588:GO0T0 2 
ilis nn= 58: GUTD 2790 1S7u nn=SGè:GGTD E 
Lit hn=ïivs:G0i0 2790 1580 hn=478:G60T0 ZE 
Lit on=%Sb: 5010 2800 1590 hn=426:50T0 287 
didi nn=SS li: G0TO 2800 1800 hn=579:5010 à 
1150 nn=/584: 6010 2800 18415 hn=258:G0TO 
lit hn=7i6: GOÜTO 2800 1615 

11/6 hn=65i5: GOTD 2800 1620 IF 1$="i1" THEN RESTOURE 110: G0T0 25 
1180 hr=568: 6010 2800 80 

1190 hn=S506:G0TU 2800 1650 IF i$="2" THEN RESTORE Z1£0:G0T0 25 
1200 hn=478:G0T0 2800 60 

1210 hn=dié:G50TO 2800 1640 IF i$="2:" THEN RESTORE £i30:G0T0 23 
1226 hn=379:G60T0 2800 80 

1220 hn=iS8:G0T0 Z809 1650 IF 1i$="4" THEN RESTORE 2140:G6070 25 
i2at nhn=219: GOTD 2800 80 

1:41 a=REMAIÎN (O0) +REMAIN (CL: +REMAIN(Z) +REM 1660 IF 14="S5" THEN RESTORE Z150:60T0 23 


=z== CLAVIER à SCRUTATION ULTRA-RAFILCE = 1670 IF 149="6" THEN RESTORE 2160:G0T0 23 


+ 


2 LOCRTE 1,25:PRINT STRINGS(BQG," "hs: 1680 IF 14="7" THEN RESTORE 2170:G0T0 25 
710 80 
? SUUNÉ 125,note, temps,0,1:G0OT0 830 1690 IF 1#="S" THEN RESTORE 2180:G0T0 23 


Ê 
Lo 


we 
D LI C6 2 


in À 
œ 
d 


bi ri 


CRC 


ü nocl$="Clavier OZ":0N INSTR(clavie 1700 IF i$="9" THEN RESTORE 2190:G070 23 
24,1%) GOTO 1270,1280,1290,1300,1710,13 80 

20,133, 1340,1350, 1360,1370, 1380, 1790, 14 1710 IF i$="0" THEN RESTORE 2200:G0T0 23 
d9,1410,1470,1420,1440,1450, 1460, 1470, 14 80 

8,1490,1900,1510,1520, 1930, 1540, 1550, 15 1720 iF i$="-" THEN RESTORE 2210:G070 23 
6u,15370,1580,1590,1600,1619,1241, 1742 80 

1270 hi=9%6:6010 2810 1730 IF i$=""" THEN RESTORE 2220:6070 23 

in=b5 2h10 80 

2810 1740 IF 1$=CHR$(23) THEN RESTORE 2230:60 
2816 TO 2380 

2819 750 IF 19=CHR#$(34) THEN RESTORE 2740:60 
2410 TO 2380 

GG :8iv 1760 IF 1$=CHR#(35) THEN RESTORE 2250:60 
j 2810 10 2380 


y ti 


E: 
3 


1770 IF i$=CHR#i:6) THEN RESTORE 2260:560 
TO 2:89 | 
1765 IF 1$=CHR$(27) THEN RESTORE 2270:50 
T0 2386 
1790 IF 1$=CHR$(58;: THEN RESTORE 228: Bi 
TO 2:80 
1800 IF 1$=CHR$(59) THEN RESTORE ZESG: 60 
T0 2:80 
1910 IF 1$5=CHhk$(4u) THEN RESTORE 2:20 
19 2:80 
1820 IF 1$=CHR$(41) THEN RESTORE 22it:50 
0 25:8û 
1820 IF 1$=CHR$(95) THEN RESTORE Zu: Gi 
T0 25830 
1840 IF 19=CHR# (61) THEN RESTORE 2230: 50 
10 £:8ù 
1845 | 
1850 IF 14=CHR#(165) THEN RESTORE 2340:6 
OTO 258û 
1860 iF i$=CHR$(145) THEN clavier=i:octa 
ve=) 
1870 [IF 1$=CHR$(146) THEN clavier=2tocta 
ve=i 
1880 IF i$=CHR$(147) THEN clavier=i:octa 
ve=? 
1490 IF 1$=CHR$(148) THEN ciavier=2:octa 
ve=2? 
1900 IF i$=CHR${(224) THEN 2780 
1910 IF 1$=CHR$(240) THEN temps=tempsti: 
IF temps:100 THEN temps=Zü:GOTO B3SG:ELSE 
GOTO 8:20 
1920 IF 14=CHR$(241) THEN temps=temps-i: 
IF temps:20 THEN temps=10û:GOTO 830: ELGSE 
GOTO 82:65 
1920 IF i$=CHR#$(242) THEN eni=eni-i:iF e 
niti THEN eni=15:G0T0 830 ELSE GOTO 830 
1940 IF 14=CHR$(245) THEN eni=enitisiF e 
ni:15 THEN eni=1:GOTO0 630 ELSE GOTO 826 
1950 IF 1$=CHR$(244)i THEN acc=accti:if a 
cc:9 THEN acc=0:GOTO S30:ELSE GOTO 830 
1960 IF 14=CHR$(245S) THEN acc=acc-l:iF a 
ccio THEN acc=9:6070 S30:ELSE GOTO 850 
1970 IF 1$%=CHR#$(746) THEN en2=en2-i:IF e 
n2£i THEN en2=135:G0T0 820 ELSE G0OTO 8:20 
197S IF 1$=CHR$(247) THEN en2=en2ti:iF e 
n£riz THEN en2=1:G0T0 6830 ELSE GOTO 8:û 
1980 IF 1$=CHR#CIZ) THEN GOTD 2856 
1950 GOTO B:0 
2000 
EG CESSE SSRRÉRERSSE SES RS 
2020 ‘ VERIFICATION des 
ZGI0 : DATRE | 
26046 ‘ Four verifier É 
2059 ‘ Faire ‘GOTO + le 
2060 ‘ No de 1la ligne 
2970 ‘ suivante... 
2080 b=6:FOR a=i TO 1SG:REGD a$siF a 
in" THEN 2105 


2090 5=b = 

2169 IF b:°: 
s les datas...* 

O1 : END 
Elic H4279,219.839, 190, 157,147 
E12S DATA 428,736,254,7:7:,167,142,iûe 
243 


126 DAT 279,201,292,19G, 150, 127,85 
2145 DAté 254,224,239,177.142,119,69 
2155 


is 159, Tears idé, 66 


2189 £ 190, 147,113,75,7i 
2170 201,169,177.190,64,62 
2180 J0,159.117,75.85,60 


2190 DAtA 215,1897,142,ji06,84,71,73 
Z200 DATA 194,19,127,95,75.87,4; 
Z210 Lhth 179,i42,117,689,7/1,6û,45 
Zeb Dal 1355,127,109,90,817,35,4û0 
Daté 4/r,402,319,2:9,261,157,1 5 
L' CASA 458,2186,294,2125,1/9,14%,i0us 
2290 DATA 779,219,252,190,1397. 127,93 
z2eù LAIA 258,2u1,229, 129,130, 115,8 
2270 DATA 1319,2068,217,159,1234,166,50 
£2É0 DATA 294,2:9,190,142,119,95, 71 
23290 DATA 255,213,16%,127,106,64,63 
io DAâIA 239,201,159,119,100,80, 00 
2110 DAlé :15,179,142,106,.89,71,955 
2320 DAlA 190,155,127,95,80,03,47 
2310 DATA 179,130,119,89,75,60,45 
2340 DATA 157,134,106,80,67,55,40 
2359 ‘ 

ESC RMI DIE DER DEME DE DEDE DE DE DEEE DE DE DEEE DE JDE DRE 
# 

2370 

2380 h=0:dn=0:adn=û: ON acc+i EOTO 2420,2% 
460,2490,2520,2560,281û0,2690,2670,2719 
2390 

EU NIET ETS SSSR ESSE SSSR ESSSSS SE ESES SE SES] 
# 

=410 

Z420 LOCATE 67,11:FRINT'"Accords VE 
OR i1=i TO 6:READC h:SCUND i,h,temps,G.en 
1,en£:SOUND T,dn, temps, ü,eni,enéi:SOUNG à 
.adn, temps, ü.eni,enz:ada=dni:dn=h:h=GiNEX 
Tite=temps+t£:REAL H:SOUND #3 h,te,tu,eni,e 
2:E0UHT 2,dnr,te,ü,eni.er:i 

2470 SOUND 4,adn,te, 0,en1, en2: GGTD CAN 
:4450 

Fu So 

£48G LOCATE 67,11:FRINT"Electron Mate 
OR i1=t 10 7:READ h:SOUND 2,h,temps,.t,en 
1,en2: SOUND 1,h#2, temps, 0,eni,en2: SOUND 
4,0, temps, G:NEXT:GOTC BSG 


2479 
2480 

2490 LOCATE 67,11:FRINT"Ecno HAE 
OR 11=1 F0 7:READ h:SOUND 5,0, temps, tr: 50 


UND 2,h,temps\5,9,eni,enz:SOUND £,h+i.te 
mps\5,6,eni,enz:SOUND 2,6, temps\2.G:NEXT 


: GÛUTO G:G 
000 


HO FÜR a=1i F0 7:READ hia):NEÂTILOCATE 

br, Lis FRINT'"'Accordeun se SOUNDS 1,hi1),t 
enss,i,ent ,en2:SOUND 6,0, temps,it: SOÛNL 1 
soit), Femps,t,entiSOUND £,h(d: temps, ü,e 
ni,ené:SOUNE 4,h(7:,temes,9,eni,enz: Si 
FE jh: +5, tempe,t,eni, en: SOUDE 6,4, tem 
ps,t,ent,enz 

250 SONDE L,h(li,temps.u,eni,.enéi: SOUNE 

RCE, temps,0,eni,eni:SOUNE 4,n(t,temp 
3,0,en1i,.ents5613 ET 

DE 4i 


D FOE az) TD F:READ h'a):NEXT:LOCATE 
11:FRINl "Ballade “: SOÛUNT :,h(51,te 
sCeni,ené: SOUND 4,h(7),temps,0,eni,e 
ni: SOÛND hd). temps#s,0,enli,enés:FOR a= 
1 0 S:SOOND 1,h155, temps, G,eni,en2:SOUN 
L'4,hif}, temps,t,enl:NEXT: SOUND Z,hi£t ,t 
enps,0,en!,ent e 
2570 FOR az1 10 %:GSOUND 1,h{5)i,temps,ô,e 
ni,en:SOUND 4,h(7),temps, ,enl,en2:NEXT: 
SOUND Z,ht2), tempss#5,9,eni,en2:FÜR a=i T 
0 2:SOUNS 1,h19),temps,0,eni,enz:SOUNL 4 
‘hi? ,temps,0ü,eni,en2Z:NEX1T:30OUND 2,hi2), 
temps*+2,0,eni,enz: SOUND £,h(5), temps,û,e 
ni,ené 
2990 SOUND i,h{(5) ,temps,6,eni,enz:SOUND 
4h17), temps,ü,enl,en£:GÜTO 850 
2590 
RE TRUE 
2610 FOR a=1i TO 7:READ h(a):NEXT:FOR a=i 
T5 2: SOUND Z,ht1), temps, G,eni,en2:SOUND 
1,h1{5),temps,c,ent,en%:SOUND 4,h(7),tem 
ps,ü,eni,en£:NEXT:FOR a=1 TO 2:SOUND 2,h 
(2), temps,G,eni,en2:SOUND 1,hn(5),temps,û 
seni,en£:SOUND 4,h(7),temps,0,en{i,enz 
2éat NEXT:FOR a=i TO 2:S0UND 2,h{35;i,temp 
s,,ent,enz: SOUND 1,hi5i, temps,0,eni,ent 
:SOUND 4,h(7) , temps, G,enl,en£:NEXT:FOR a 
=i TO 2: SOUND 1,h{5i, temps, 0,eni,enz: SOU 
ND 4,hi71.temps,6,eni,en£:NEXT:SOUND 2,h 
(2), temps, G,eni,enZ: SOUND 2,h({2), temps, ù 
seni,ans 
Sol LOCATE 87,11:FRINT "Rock “2:60 
TO B3û 
Zé40 
2680 FOR a=1i TO 7:READ hia):NEXT:LOCATE 
67,11:FRINT'"'Bossa-nova ":SOUND 2,h{1i,te 
mpsxi,t,eni,enz:SOUND 5,0, temps+#+2, G: SOUN 
B 1,nf4i,temps+2,0,enl,en2: SOUND 2,h(5), 
tamps,G,eni,en2:SOUND 2,h1(2),temps*£,û,e 
ni,en£:£OUNLD 4,hi6),temps#:,0,eni,enz:5s0 
UND 35,0,temps,G 
£éët SOUNE 1,n1t4),temps*+2,0,eni.en£: SOUN 
D £,hi35},temps,9,en),en2: SOUND 4,h(6),te 
mps*2,6,enl,en£: SOUND £Z,h(2),temps,0,eni 
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8023: SUUND 1,n{4),temps,0,eni,en2:SOUND 
2,hn 65: ,tempe,,eni,enZ: SOUND 4,h(6),temp 
5,4,enl,en2:BG0TO 8350 
Zéru rÜR a=i 10 7:READ ha): NEXT: FOR a=i 
T0 4: SOUND 1,6, temps, 0,12,0,1:NEXT:SOUN 
D Z,hi4} ,temps,0,eni,en2:SOUND 4,h{1;,te 
mps,t.ent,enz:SOUND 6,0, temps, 0:SOUND 4, 
5, tempsaxi, O: SOUND 2,h (2), temps, 0,eni,en2 
ISUUND 2,h(31,temps,0,enl,enZ:LOCATE 67, 
11 
cé FRINT"érpeges "3: FOR a=i TD 4:5 
GUND 1,5, temps,0,12,0,1:NEXT:SOUND 2,h(4 
',temrs, D,eni,en£: SOUND 4,6, temps+*, ü:S0 


UNE ,h125,temps,0,eni,en2: SOUND 6,6,tem 
ps#i,su: 3910 850 
PUS 


Z7iu FÜR a=i TD 7:READ ha) :NEXT:LOCATE 
&7,11:FRINT'" Marche “ss: SOUND Z,h(iix 
£, temps*£i, G,eni: SOUND 1,h12), temps*2,0,e 
ni,ené:SGUNL 4,hi6).temps,ü,eni,en£:SOUN 
L'4,h:5:,temps.0,eni,en2:FO0R a=i TO 3:50 
UND j1,h{a),femps,9,enl,en? 

2720 SOUND 2,h(a+1:,temps,0,eni,en2z:SOUN 
D 4,har£!,temps,0,enl,en2:NEXT:SOUND 2, 


hi) ,temps,0,ent,enz:SOUND 1,h(4),temps, 


0,eni,en2:SOUND 4,0, temps,0:G0T0 83c 
AFS À 

=74û 

274i ÉZILLLILLISILISLISLISISISSSSSISSS SSL ST SS 
LES se: 

2742 

2250 PRINT CHR$ (2) : "ÊT": temps: CHR$ (31): 
CHRS (28) 3 "Îten1s CHR$ C1) 3 "À" 5 en 23; CHRS (3 
135"=%; acc: CHRS (51)  CHRS (54) 3 "OO": PEEK (& 
ADEZ) 3" “5 CHRS (31) 5 ":1Q": PEEK (GADB3) 3" 
":CHRS CT: 5 "FO"; FEEK (&ADB4) ;" Ms: RET 
URN 

2760 PRINT CHRS (31) ; CHR (54) 3 CHRS (17): PE 
EK(BADEZ) 5" "5 CHRS (T1) 3 "2" 5 CHRS (17) 5 PEE 
E(BADEZ) 5" “3 CHRS (31) 5 "F3 CHRS (17) : FEEK 
(#ADB4) 5" “3 : RETURN 

2770 PRINT CHRS (1) s CHRS$ (3) ; CHRS (17) :mo$ 
:CHRS 121) ; CHRS (19) ; CHRS (17) snoc1$: : RETUR 
N 

2771 

277% ÉESSLLILILLSLSESSSSS TS TS SSII T1) 
LÉ SES S 


RIT 
ai + 


2780 CLS #i:INFUT #1,"Vitesse accords (2 
0-100)"; temps: FRINT #1: INPUT #1,"Envelop 
pe volume (1-15) "s;eni: PRINT #1: INFUT #1, 
“Enveloppe tonalite (1-13)"s;senZ:PRINT #1 
: INPUT #1,"Accords automatiques (1-9)":a 
Cc:LOCATE 1,25:FRINT STRING$(79," ")3:60 
T0 850 

2761 

2782 TH IAIEIEIDE DE DE DE DEEE DE DE SE DE DE DE DEEE EEE 


HHAEE 

2783 

2790 SOUND 130,hn/octave, 156,15, 13: SOUND 
129, (hn-2) /octave,150,15,13,12:SOUND 3 

2, (hn+2) /octave,150,15,15,13:G6010 835 

2800 SOUND 130,hn/octave,45,1i5,14,13:S0l 

ND 129, (hn/octave)/2,45,15,14:SOUND 1:32, 
(hn/octave)/4,45,15,14:G0T0 830 

2810 SOUND 120, (hn/octave)/2,20,15,15,3: 

SOUND 132, (hn/octave)/4,20,15,15:SDOUND 1! 

29, (hn/octave),20,14,2:60T0 83û 

2820 SOUND 126, (hn/actave)/2,251,15,9,13 
: SOUND 122, (hn/octave)/4,251,15,97:SOUND 
129, (hn/octave)/6%3,251,15,97:G0T0 830 

2820 IF octave=i THEN SOUND 13G,hn/2,100 

©,15:SOUND 129,hn/2-2,1000,15:SOUND 132, 

hn/2+5,1000,15:G60T0 830 

2840 SOUND 136,hn/4,1006,15:SOUND 129,hn 

/4-1,1000,15:SOUND 132,hn/4+1,10G0,135:66 

T9 856 

2841 

2842 

HI 

2843 

2844 

EL EL SE 

2845 

2850 mo$="Clavier 3 voies":envi=i:env2=i 
senvi=i:arreti=REMAIN(2) :arretZ2=REMAIN (OS 
) 

2860 ENV 1,15,-1,20:ENV 2,1,0,40,13,-—1,1 

9,2,-1,1:ENV 3,3,-1,20,3,1,5,10,-1,20,5, 
1,5,10,-1,20:ENV 4,14,-1,2 

2870 ENV 2,15,-1,1 

2880 ENT -i,1,1,6,2,-1,6,1,1,6 

2890 a$="QUWERTYUIOP@LASDFGHIJEL : ; 1ZXCVBNM 
,-/\123456789"+CHR$ (13) 

2891 

2892 

HIS 

2892 

2900 1$=UPFERS(INKEYS#):IF 14="" THEN 290 

(a 

2916 ON INSTR(a$,i$) GOTO 29:0,2940,2950 

,2%60,2970,2980,2990,3000,3010,3020,3030 
,3040,2060,3070,3080,:2:090,3100,3110,3120 

,3130,3140,3190,3160,3170,3199,3206,23210 

,2220,3230,:240,32950,3260,3270,3280, 3290 

,3310,2320,352:0,3340,23250,3360,3370,3380 
,3290,3440 

2920 G6DT0O 2900 

2950 n=478:G60T0 :4060 

2940 n=4276:G6010 3400 

2950 n=379:G0T0 3450 

2960 n=558:G0T0 3406 

2970 n=319:60TD 3400 

2980 n=284:G0T0 3400 

2990 n=253:60T0 3406 


RTL SLÉSSSSSESS SES SES SSS SSSR SR SSSR SES: 


CLAVIER 3 VOIES 
PEN DEEE DEA DE DE HE DE DE DEEE DEEE EEE ED 


MOTS SLSSSESSESSSSSSSS ESS RSS SES SES RSS RSS) 


2000 n=22:9:G60T0 23406 
n=2135: 5070 3460 
5 n=190:G0T0 :450 
36 n=177:G0T0 3400 
040 n=159:G0OT0 3400 


2060 n=478:G0T0 3410 
2970 n=426:607T0 3415 
2080 n=579:G0T0 3410 
2090 n=358: 6070 34iù 
3106 n=319:G6G0T0 3410 
5 n=284:G0T0 415 
51206 n=253:GOT0 3410 
3150 n=259:GO0T0 3410 
Zi149 n=213:G0T0 3419 
3150 n=199:G0T0 3410 
3160 n=179:G0T0 3410 
5179 n=1i59:G0T0 34i0 


3190 n=478: 6070 2420 
22300 n=426:G0T0 3426 
3210 n=379:6G0T0 3420 
3220 n=358:G0T0 3420 
3230 n=:19: 6070 3426 
22340 n=284:G0T0 3420 
2250 n=253:60T0 3420 
3260 n=239:G0T0 3420 
3270 n=213:G0T0 3426 
2280 n=190:60T0 3420 
3290 n=179:G0T0G 2470 


3:10 envi=1:6G0T0 2900 
3320 env2=1:60710 2900 
Z30 envz=i: GOTO 2900 
340 envi=2:G60T0 2900 
550 env?=2:60T0 2900 
3560 enviz=2: 6010 2900 
3:70 envi=3:G60TG 2906 
3380 env?2=5:607T0 2900 
3390 envs=3:60T0 2906 


FAR DE DE MEME DE DE DEEE DEEE DE DEEE DE DE DE JE DEEE DE DEEE EE EE 
ÉLÉSS ES: 

3393 

3400 SOUND 179,n,-1,15,envi,isn=0: 60710 2 
906 

3410 SOUND 136,n,-1,15,envz,i:n=G:G5TD 2 
GO 

2470 SOUND 152,n,-1,15,envz,1:n=0:GGTO 2 
900 

2430 SOUND s,0,15,15,2,0,b:6070 296û 
3451 

AU RE LEZ STISLLÉESSELSISSSSSSSSSÉ ES SES SES) 
EX 

ZA4TT 

5440 LOCATE 1,29:FRINT STRINGS(AG," js: 
EVERY 10,0 GOSUE 2755 

3450 GOTO 400@ 
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LE SCANNER 


UNE REVOLUTION ! 


Denis BONOMO 


usqu’à présent, seules quelques grosses machines à vocation 

professionnelle pouvaient être équipées de dispositifs d'analyse 

et de reproduction d’une image. En introduisant son scanner 
dans le milieu de la micro-informatique familiale, DART ouvre des 
horizons nouveaux aux utilisateurs d'AMSTRAD. 


TA ES ee pe 


C'est SEMAPHORE Logiciels, nos amis 
suisses, qui présentaient lors de l'AMS- 
TRAD EXPO ce dispositif assez révolu- 
tionnaire.. par son prix. 

De quoi s'agit-il ? Tout simplement d’un 
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lecteur optique, s’adaptant directement 
sur la tête d'écriture de la DMP 2000, 
capable d'analyser un document (photo, 
dessin et éventuellement texte en assez 
gros caractères) introduit dans le circuit 
papier de l'imprimante AMSTRAD. Ce 
lecteur optique est relié par un fil à une 
interface se connectant directement sur 
le bus d'extension de l'AMSTRAD. Cette 
interface n'immobilise pas le bus pour 
autant ; les possesseurs de 464 + DDI 1 
apprécieront ! 

Le matériel est accompagné d'un logiciel, 
livré selon le cas sur disquette ou cas- 
sette, indispensable au fonctionnement 
de l'ensemble. Une petite notice de 3 
pages (mais elle était provisoire) com- 
plète le tout. 

L'installation du matériel demande une 
dizaine de minutes et un minimum d’at- 
tention. La tâche la plus délicate consiste 
à positionner une butée auto-collante 
dont l'emplacement devra être déterminé 
avec précision. Dès lors, vous pouvez 
commencer vos expériences et vous 
émerveiller devant le fonctionnement de 
ce scanner. 


L'image numérisée pourra être contenue 
dans un seul écran ou scindée en deux 


‘’pages'’ (cas de documents assez 
grands). La position de la marge gauche 
est réglable, ce qui permet d'éliminer, au 
besoin, des parties d'image indésirables. 
Un réglage de la sensibilité du capteur est 
indispensable. Pour ce faire, un potentio- 
mètre est disposé sur le boîtier d'inter- 
face. Par retouches successives, en 
observant les résultats sur l'écran, on 
ajustera ce potentiomètre afin d'établir 
un compromis entre les parties claires et 
foncées de l'image. 

L'image numérisée pourra être sauvegar- 
dée et réutilisée, par la suite, dans vos 
programmes ou encore pour agrémenter 
vos disquettes. Ah, Samantha Fox ou... 
Alan Sugar ! (à vous de faire le bon 
choix !). 

Bien entendu, on pourra la réimprimer sur 
papier, mais aussi la travailler graphique- 
ment au moyen du mini-éditeur proposé 
par le logiciel, bien adapté à cette tâche 
(zoom, box, copy, renversement d'écran 
sont quelques-unes de ses possibilités). 
L'intérêt de ce genre de matériel est cer- 
tain, car il vous permettra, avec peu de 
moyens, de travailler dans le domaine du 
graphisme. Associé à un compacteur/ 
décompacteur, il est possible d'envisa- 
ger la réalisation d'aventures graphiques 
ou encore, de logiciels éducatifs 
attrayants. Tous ceux qui ont plus ou 
moins perdu du temps à essayer de 
reproduire de belles images seront obli- 
gatoirement sédüits par ce sanner et par 
son logiciel. 

Dernier point positif, et non des moin- 
dres, son prix : 790 F. Voilà qui me fait 
regretter de ne pas posséder une DMP 
2000 car ce petit bijou ne s'adapte, 
hélas, que sur cette imprimante. 

Le scanner de DART est distribué par 
Sémaphore Logiciels, annonceur dans 
CPC. : 


SOUS QUELLE 
ETOILE 
SUIS-JE NE ? 


290 F. 


La disquette double-face 


MIROIR 
ASTRAL 


Avec une date, une heure et un lieu de naissance, 
votre CPC établira un portrait psychologique 
approfondi d'environ 15 pages sur imprimante ! 
Un logiciel qui vous étonnera par sa profondeur ! 
{version familiale d'un logiciel utilisé par les professionnels) 


Astropsychanalisez votre famille,vos amis, 
comme les plus grands hommes célèbres. 


Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à : 
Bernard VILLEMIN 
317, Av. de Verdun - 83110 SANARY - Tél. 94 74 32 00 


Toperial S0FGware Suystens Germany 
Gardes KG 


Rochus-Center 
D-5300 Bonn 1 
West-Germany 


CPC-MousePack 


contient — une souris de précision 
— un adaptateur 
— une documentation détaillée 
— une disquette 3” 


Les programmes livrés ensemble avec la À 

souris vous permettent de l'utiliser pour 

vos propres programmes ainsi que pour 

le système CP/M ou pour une parfaite 

réalisation de graphiques. k 4 CPC- 
Le CPC-MousePack est le système d MousePack 
souris le plus vendu en Allemagne. ; 890ff 


Compilateur de BASIC “Typhon’” 

Selon l'opinion unanime des magazines allemands spécialisés en informatique, le 
“Typhon” est un des programmes les plus importants pour le CPC. 

— le programme objet est jusqu'à 100 fois plus rapide que le programme BASIC. 
— le compilateur peut comprendre plus de 30 instructions supplémentaires 


Le “Typhon” est le leader des compilateurs de BASIC cassette: 290 ff 
pour le CPC en Allemagne disquette: 340 ff 


Autres produits d’Imperial SOFTware Systems 


— programmes utilitaires pour disquettes 
— MACRO-Assembleur 

— Layout-CAD 

— PCW-Mouse 


Pour des informations plus détaillées et des commandes s'adresser aux revendeurs 
de logiciel en France ou directement à: 


Toperia) S0FGuare Systems Gerdes France 
54 Avenue de la Paix F-57520 Rouhling Tel. 87092414 


A L'OUEST DU NOUVEAU 
Micronaute 


9, rue Urvoy de Saint Bedan 


44000 NANTES 
Tél. : 40.69.03.58 


SPECIALISTE AMSTRAD 

Toute la gamme CPC et PCW 
aux prix AMSTRAD 

avec le service MICRONAUTE 


STATION TECHNIQUE 
Dépannage rapide sur place. 
AMSTRAD. ATARI ST. COMMODORE. 
THOMSON. 


SERVICE FORMATION 
e Locoscript + D Base Il e Multiplan 
Ex. : Locoscript 3 j/1690 F TTC 
(conventions de stages possibles) 


LIBRAIRIE : MICRO APPLICATION 
P.S.I. 
SYBEX 
EYROLLES, etc. 


LOCATION 


SPECIALISTE AMSTRAD PC 
RESERVEZ-LE MAINTENANT : 


Monochrome Couleur 

PC 1512 SD... 4997 F HT | PC 1512 SD... 6890 F HT 
PC 1512 DD... 6290 F HT | PC 1512 DD... 8190 F HT 
PC 1512 HD 10. 8790 F HT | PC 1512 HD 10. 10690 F HT 
PC 1512 HD 20. 9990 F HT | PC 1512 HD 20. 11890 F HT 

LA REVOLUTION 

1 PC en démonstration permanente 
DMP 3000 disponibles 


M SELECTION MICRONAUTE 


* SOFTS 
NOUVEAUTES, arrivages toutes les semaines. 
SPECIALISTE : LORICIELS 
ERE Informatique 
ACTIVISION 
ELECTRIC DREAMS, ... 
UTILITAIRES : Traitements de texte 
Fichiers 
Tableurs 
Compta/facturation,… 
LOGICIELS EDUCATIFS 
MASTERTRONIC : 29,90 F 
Nombreux titres. 
NOMBREUX JEUX 8256 
* EXTENSION MEMOIRE DK TRONIC 
* DIGITALISEUR D'IMAGES 
* CORDON 
* RUBAN IMPRIMANTE 
* HOUSSES 


GRAPHISME 
GRAPH PAD Il. La plus puissante des 
tablettes + notice en francais 
Cassette : 820 F. Disquette : 900 F 


CREDIT Dossier CREG immédiat 


VPC envoi rapide 
Commande : Tél. : 40.69.03.58 
Micronaute VPC 
9, rue Urvoy de St Bedan - 44000 Nantes 
Port : 20 F Softs - 70 F Machine 
+ 30 F contre-remboursement 


NEO MEDIA 


UTILITAIRE 


GESTION 


DE COMPTE 
BANCAIRE 


Georges NARETTO 


‘’gestion de compte bancaire’’ pour finalement vous propo- 


N ous avons hésité longtemps avant de publier un listing de 


ser celui-ci. Ecrit sur CPC 464 + DD]1, il sera utilisable sur 664 
ou 6128. De même, le module d'impression pour DMP1 aété testé, 
avec succès, sur compatible EPSON (Citizen 120D). 

Chacun pourra adapter ce logiciel à ses besoins, tout en bénéficiant 
de la structure proposée par l’auteur. 


Ce programme permet la saisie, la visua- 
lisation, la modification ou l'annulation, 
et l'impression de 51 opérations dites de 
saisie : Non amorties par la banque. De 
plus il permet la mémorisation de 200 
opérations amorties que l’on peut visua- 
lier ou imprimer. Ces opérations étant 
classées de 200 en 200 dans des fichiers 
indépendants, afin de permettre une 
étude statistique sur ceux-ci. 

Toutes ces opérations sont classées 
chronologiquement et instantanément. 
Ces fichiers sont extensibles (de 17 en 
17 pour le fichier saisie). 


UTILISATION DU PROGRAMME 

A la première utilisation du programme, 
il sera nécéssaire d‘initialiser un fichier 
"SAISIE", en tapant GOSUB 1690. Une 
fois ce fichier écrit sur disquette, relan- 
cer le programme par RUN. 

Ce fichier ‘’SAISIE'" comprendra, outre 
les opérations saisies mais non 
amorties : 

— les opérations amorties inférieures ou 
égales à 200 ; 

— les soldes : SI (solde initial avant sai- 
sie), SA : solde des opérations amorties. 
Une fois le fichier ‘‘saisie’’ créé, faire un 
retour en arrière, et RUN. 

Le programme va demander une date 
(JJMMAA) qui sera la référence pour les 
dates des opérations saisies. 


Le menu, composé de 8 options appa- 
raîtra ensuite : 

1) SAISIE : Le masque de saisie une fois 
créé, suivre les indications dans le cadre 
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à droite. 

— La première colonne, après le n° opé- 
ration, est une lettre permettant dans un 
autre programme, une étude statistique 
des dépenses du ménage. Ces lettres 
sont choisies par l'utilisateur Ex : “1” 
pour impôts, ‘‘’S'’ pour santé, ‘D’ pour 
domestiques, etc. Si l'on frappe F on 
retourne au menu. La mise en majuscule 
est automatique (ligne 120). 

— 2e colonne : Mode de paiement suivi 
de 3 chiffres : 000 si il s’agit d’une carte 
bleue (CB), d'un virement (VIR), d'une 
domiciliation (DOM), d'un retrait avec la 
carte (CAR), ou les 3 derniers chiffres, 
si il s’agit d'un chèque (CH), à donner 
obligatoirement dans ce cas. 

— 4e colonne : Le libellé de l'opération. 
(Maxi 16 caractères). Le reste étant 
ignoré. 

— 5e colonne : La date (JJMMAA) qui 
permet un classement instantané dans 
l'ordre chronologique. 

— 6° colonne : Montant débit (sous 
forme : ## #.# #). Si l'opération est 
créditrice. frappez soit : O + <ENTER > 
seul. 

— 7e colonne : Montant Crédit. Si l'on 
frappe à nouveau O (zéro) dans cette 
colonne, ce qui précède est annulé et on 
retourne au début de la ligne. 

— Les 2 dernières colonnes, ainsi que 
les 2 cases en bas à droite, donnent en 
permanence le solde du compte suivant 
qu'il est créditeur ou débiteur. 


2) VISUALISATION DE LA SAISIE : Per- 
met une visualisation de la saisie, y com- 


pris le solde du compte. 


3) MODIFICATION OU ANNULATION : 
Annule ou modifie une opération saisie 
(Uniquement dans le fichier des opéra- 
tions non amorties) : Une fois le n° 
d'opération donné, celle-ci apparaît en 
vidéo-inversée, jusqu'à sa modification 
ou annulation. De plus en modification, 
un F dans la première colonne, est nul. 


4) AMORTISSEMENT : Lors de la récep- 
tion du relevé de compte de la banque, 
l'option 4 permet de sortir les sommes 
‘saisie’ en attente et de les transférer 
dans le fichier amortissement. Après le 
n° donné, il y a demande de confirma- 
tion (L'opération étant en vidéo- 
inversée) : Si on frappe ‘‘0’”, la somme 
est amortie (irréversible), dans le cas 
contraire (N), on revient à la demande du 
n° d'opération. Pour quitter : <ENTER > 
seul. (Le montant du relevé de compte 
de la banque. Nous est alors donné pour 
vérification). 


5) SOLDE DU COMPTE : Donne simple- 
ment le solde du compte. 


6) VISUALISATION ET IMPRESSION. 


7) VISUALISATION SANS 
SION. 


IMPRES- 


4 modes de visualisation (impression) 
sont disponibles : 

— La totalité du fichier concerné (Amor- 
tissement ou saisie). 

— À partir d'une date : Les dates extré- 
mes du fichier sont données à gauche. 
Il suffit de donner la date à partir de 
laquelle on veut l'édition. 

— À partir d'un enregistrement : Le 
nombre d'enregistrements est à gauche : 
Donnez le n° à partir duquel vous vou- 
lez l'édition. 

— Les N derniers enregistrements : Si 
l'on ne veut de, par exemple les 5 
derniers. 


L'impression est donnée sur 80 
colonnes. 


8) QUITTER : Lorsque l'on a tout fini, en 
appuyant sur 8 , on provoque la sauve- 
garde de tout ce qui a été fait. Il ne faut 
quitter le programme que par cette 
fonction. 


LISTES DES PRINCIPALES VARIABLES 
AA : Nbre Enregistrement du Fichier 
Amortissement en cours. 

Op : Nbre d'opérations Saisie = Nbre 
d'enregistrement du fichier Saisie. 

SI : Solde Initial. 

SA : Solde de toutes les opérations 
amorties. 

D$(N) : ENREGISTREMENT des opéra- 
tions du fichier saisie. 

p$(N) : ENREGISTREMENT des opéra- 
tions amorties. 

D5$(N) : Date des opérations du fichier 
saisie. 

DAS$(N) : Date des opérations du fichier 
amortissement en cours. 
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9 POKE &BDEE, 201 

10 MODE 1:LOCATE 2,5:PRINT"PROGRAMME DE 
GESTION DE COMFTE COURANT":PRINT STRINGS 
(40,"_")=:PRINT:PRINT"Veuillez me donner 
la date (JJMMAA) : ":LOCATE 10,15: INPUT L# 
2071F LEN(L#)<>6 THEN 70 

30 J=VAL(LEFTS (LS$,2)) :mm=VAL (MIDS (L$,3,2 
))s:ai1=VAL(RIGHTS (LS,2)) 

40 IF j<i OK 5>351 OR mm<i OR mm>12 OK ai 
<86 THEN 70 

90 IF mm=2 AND j>29 THEN 70 ELSE IF mm=2 
AND j=29 AND(a1/4<>INT(ai/4)) THEN 70 EL 
SE I1F(mm=4 OR mm=6 OR mm=9 OK mm=11) AND 
j=31 THEN 70 

60 GOTO 80 

70 CLS: LOCATE 15,10:PRINT"DATE INCORRECT 
E"2:PRINT CHR$(7):FOR i=1 TO 700:NEXT:GOT 

0 10 

80 MODE 2:INK 0,13:INK 1,0:BORDER O:WIND 

OW#1,1,80,6,22:WINDOW#2, 65, 80, 1, 2: PAPER# 
2,1:PEN#2,0 | 

90 FAPER O:PEN 1: PAPER#1,0:PEN#1, 1: PAPER 

#2,1:PEN#2,0:DIM D$(51),DS5$(51),P$(200), 

DA$ (200) 

100 WINDOWKS,3,41,5, 15: WINDOW#4,43,78,5, 
15: PAPER#S, 1:PEN#3, 0: PAPER#4, 1 : PEN#4, O 
110 GOSUB 1840:S0=S1+SA 

120 CLS:A$S="":POKE 8&B4E8, 255: LOCATE 22,9 
sPRINT'M E NU TENUE DE COMP 

T E'":PRINT TAB (22) ; STRING$ (36, "=") : LOCAT 

E 22,10:PRINT"L11.......SAISIE DES OPERA 

TIONS" 

130 FRINT TAB(22);"C2]1.......BILAN DE LA 
SAISIE" 

140 PRINT TAB(22);"C3]).......MODIFICATIO 

N OÙ ANNULATION" 

150 PRINT TAB(22);"L[4]1.......AMORTISSEME 

NT “ 

160 PRINT TAB(22);"C5]J).......SOLDE DU CO 

MPTE" 

170 PRINT TAB(22)3;"L61....... IMPRESSION" 

180 PRINT TAB(22);"C71.......VISUALISATI 
ON“ 

190 PRINT TAB(22):;"C8]1.......QUITTER(Sau 
vegarde automatique) 

200 LOCATE 22,253: INPUT'"VOTRE CHOIX";,C:ON 
C GOTO 210,220,230,240,250,269, 280, 300 
210 GOSUER 1180:G6O0SUEB 310:G0T0 1290 

220 GOSUB 1180:GOSUR 640:G0T0 129 

230 m=i:GOSUB 1180:GOSUE 640:GOTO 120 
240 a=1:GOSUB 1180:GOSUB 640:1IF a=1 THEN 
240 ELSE 120 

250 GOSUB 1960:G0OT0 120 

260 M1$="IMPRESSION":C=1:GOSUR 2150:1IF À 
$="M"THEN 120 ELSE GOSUB 2S10:1IF A$S="S"T 
HEN GOSUB 2270: GOSUB 2270 ELSE GOSUB 225 
O:GOSUB 2270:ERASE 1$:G6G0T0 120 

279 ERASE 1$:G0T0 120 

280 M1$="VISUALISATION":C=2: GOSUB 2159:1 
F A$="M"THEN 120 ELSE GOSUB 2510:1F A$=" 
S'THEN GOSUEB 225%0:GOSUB 2270 ELSE GOSUB 


2250:6GO0OSUB 2270:ERASE 1$:GO0OT0 120 

290 ERASE 1$:GO0T0 129 | 

30) CLS:LOCATE 25,12:PRINT'"SAUVEGARDE DE 
S DONNEES"‘":GOSUB 1690: POKE &BDEE, 195: END 
310 ‘module de saisie 

320 FOR p=i TO 3 

330 FOR i=1 TO 17 

340 op=op+i 

350 LOCATE#I,1,i:PRINT#1,RIGHT$ (STRS (op) 
»2):PRINT#2,"A D E 1 L S Z":PRINT#2,"Fin 
360 WHILE X$<>"L'AND XH<>"D'"'AND X#$<>"E'"A 
ND X$<>"S"AND X$<>"A"AND X$<>"I"AND X4<2> 
“R'AND X$<>"Z"AND X$<>"F":X$S=INKEYS: X$S=U 
PPERS (X#) : WEND 

270 IF X$="F" AND M=O0 THEN V=0F:GOSUB 13 
60: x$="":0P=0P-1: RETURN ELSE IF X$="F" A 
ND M=1 THEN X$="":60T0 360 

380 LOCATE#1,4,I1:PRINT#1,X$:CLS#H#2:D1$=X$ 
390 FRINT#2,"CH CB DOM VIR CAR"3;3:INFUT 
#2, X4: X$=UFPERS (X$) 

400 IF X#$<>"CH"'AND X$<>"CB"AND X$<> "DOM" 
AND XH<>"VIR"AND X$<>"CAR"THEN PRINT#2,C 
HR$ (7) : CLS#2:GO0OTO0O 390 

410 LOCATE#I1,7,I1:PRINT#1,X#:D2#$=X$ 

420 IF X$<>"CH"THEN LOCATE#I1,11,1:PRINT# 
1,"O000":D3$="000":60T0 440 

430 CLS#2:FRINT#2, "NUMERO CH",:INFUTHZ,N 
$:LOCATE#1,11,1:FRINT#1,RIGHTS (NS, 3) : DS 
=RIGHTS (NS, 3) 

440 CLS#2: INPUT#?, "DESIGNATION: “XSL 
OCATE#1,15,1:PFRINT#I1,LEFTS(X$,15) : D4$=LE 
FTH(X$,15) 

450 CiS#2: INFUT#2, "DATE: ",AZS:IF LEN(AZS 
)<>6 OR VAL(a2$)=-0 THEN PRINT#2,CHR$ (7): 
GOTO 450 

460 J$S=LEFTS (429,2) :M#S=MIDS (A24,35,2):A1# 
=RIGHTS(A2$,2):1F VAL(A1$) <A1-1 OR VAL(A 
1$)2>41+1 THEN 450 ELSE IF M#&>"12"OR J$<" 
O"OR J#$>"Z31"OR M$<"O"THEN 450 

470 LOCATE#1,32,I1:PRINT#1,A2$%3:D5$ (OP) =RI 
GHTS (A2$,2) +MID$(A2$,3,2)+LEFT$ (A2$,2) 
480 CLS#2: INPUT#2, "MONTANT DEBIT =: “,S$: 
IF VAL(S#$)=0 THEN 510 ELSE IF S$<"O"OR S 
$>"99999"OR LEN(S$)>8 THEN 489 

490 LOCATE#1,39,1:PRINT#1,USING"#HHH#HH. ## 
“s VAL (S$) : D6$=S$+"D":GOSUB 1000'module c 
alcul 

900 GOTO 540 

510 CLS#2Z:INFUT#2Z, "MONTANT CREDIT: ",S#:1 
F S$<"O"OR S$>"99999"OR LEN(S#)>8 THEN 5 
10 

920 IF VAL(S$)=0 THEN CLS#2:LOCATE#HI,4,1 
:PRINT#1," ":LOCATE#I,7,1:FRINT#1," Le 
LOCATE#1,11,1:PRINT#1," “":LOCATE#H1,15, 
I:PRINTH#1,STRINGS(15," "):LOCATEHI,352,1: 
PRINT#1," “:GOTO 350 

930 D6$=S$+"C":LOCATE#1,48,I:PRINT#1,USI 
NG#HHHH#H#. ##" 5 VAL (S$) : GOSUB 1019 module c 
alcul 

940 IF m=1i OR a=1 THEN RETURN 

999 x=op:GOSUB 1080:0op=x 

560 NEXT I:GOSUB 570:G60T0 610 

970 CLS#1 

580 ORIGIN O0,5:DRAWR 0,38: MOVER 6,282:DR 


71 


AUWR 0,70:O0RIGIN 43,42: DRAWR O,31%$:MOVER 
1,0:DRAWR O0,-3715:MOVER 31,0:DRAWR 0,315: 
MOVER 1,0:DRAWR 0,-315:MOVER 31,0:DRAWR 
0,315:MOVER 1,0:DRAWR O,-315:MOVER 135,0 
:DRAWR 0,315:MOVER 1,0:DRAUWR 0,-315 
590 MOVER 55,315:DRAWR 0,-347:MOVER 1,0: 
DRAWR O0,347:MOVER 71,0:DRAWR O,-347:MOVE 
R 1,0:DRAWR O,347:MOVER 71,0:DRAWR O,-34 
7:MOVER 1,0:DRAWR 0,347: MOVER 95,0: DRAWR 
0,-347:MOVER 1,0:DRAWR 0,347:MOVER 98,1 
O:DRAWR 0,-363:MOVER 1,0:DRAWR 0,363 
600 RETURN 


610 IF m=1 OR a=1 THEN RETURN 

&20 NEXT PF 

620 RETURN 

640 ‘sous programme de reconstitution et 


de visualisation 

650 V=0P:0F=0:S0=SI1+SA:C=0:D=0""SI" 
LE SOLDE INITIAL AVANT SAISIE 

660 FOR P=1i TO 3 

670 FOR I=1 TO 17 

680 OPF-=0P+1:1F D$(0P)=""THEN 850 
690 LOCATE#1,1,I1:PRINT#1,RIGHTS(STRS (DP) 
52) 

709 LOCATE#1,4,1:PRINT#1,LEFTS$(D$(OF),1) 
:D1$=LEFTS (D$ (OP) ,1) 

719 D?2$=MIDS(D$(0F),2,3):1F RIGHT$(D2$,1 
)="@"THEN D2$=LEFTS (D2$, 2) : DZ$=MIDS (D$ (0 
F),5,3):DD$=RIGHTS (D$ (OF) ,LEN(D$ (OF) >) —-7) 
ELSE D3$=MID$ (D$ (OP) ,6, 3) : DDS=RIGHTS$ (D$ ( 
OF) ,LEN(D$ (OP) ) -8) 

720 LOCATE#1,7,1:PRINT#1,D2$ 

7590 LOCATE#1,11,1:FRINT#1,D3$ 

749 FOR J=1 TO LEN(DD$#) 

750 IF RIGHTS (LEFTS$(DD$S,J),1)="G"THEN D4 
$=LEFTS(DD$,J—-1): DD$=RIGHT$ (DD$S,LEN(DD$#) 
—J):G0T0 770 

760 NEXT J 

770 LOCATE#1,15,1:PFRINT#1,D4$ 

7890 LOCATE#1,22,1:PRINT#1,RIGHTS (DS5$ (OF) 
2) +MID$ (D5$ (0P),53,2)+LEFT$(DS5$(0F),2):D 
D$=RIGHTS$ (DD, LEN (DD$) —-6) 

790 Dé6$=DD$ 
800 IF RIGHT$(DD$,1)="C"THEN LOCATE#1,48 
I: PRINT#H#1,USING"###H##. #4" 5 VAL (D6$) ELSE 
850 
810 IF b=1 THEN RETURN ELSE GOSUB 1010 
820 GOTO 840 . 

8350 LOCATE#1,39,1:PRINT#1,USING'"'#HH##H. ## 
“5: VAL(D6#):IF b=1 THEN RETURN ELSE GOSUB 

1000 
840 NEXT I 

850 IF m=0 THEN 900 
869 CLS#2:PRINT#2,"No À MODIFIER OÙ <ENT 
ER> "52: INPUT#EZ,NS 
879 IF N$<>""THEN 880 ELSE IF N$=""AND D 
$(OP+1)=""THEN 970 ELSE 940 
889 IF N$<"1"OR VAL(NS)>V THEN 869 ELSE 
GOSUB 1240:FAPER#1,1:FEN#1,0:B=1:GOSUB 6 
90:B=0: GOSUB 1260 

890 G6GOTO 970 

900 IF a=1 THEN CLS#2: INPUT#2,"No AMORTI 
SSEMENT OÙ <ENTER>"3;N#:ELSE 950 

910 IF N$<>""THEN 920 ELSE IF N$=""AND D 
$(OP+1)=""THEN 970 ELSE 940 


EST 
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920 IF VAL(NS)<1 OR VAL(NS)>V THEN 900 E 
LSE GOSUB 1240:GO0OSUB 1480:EH=0:GOSUB 1360 
: OP=V: FAPER#1,0:FEN#1, 1: RETURN 

930 IF D#&(OP+1) <>""THEN GOSUB 2730 ELSE 
960 | 

940 GOSUKR 570 

950 NEXT F 

960 GOSUB 2730 

970 OP=V:M=O:IF A=1 THEN GOSUB 1960:CLS: 
LOCATE 25,10:PRINT'"'MONTANT DU DERNIER RE 
LEVE BANQUAIRE:":LOCATE 35,12:PRINT SOLD 
E-SOP; "Francs":60SUB 2730 

980 A=0:RETURN:GOTO 120 

990 ‘SFRG CALCUL 

1000 S0O=S0-VAL (D6$) : D=D+VAL (D6#) : GOTO 10 
29 

1010 SO=SO+VAL (D6$) : C=C+VAL (D64#) 

1020 IF SO<O THEN LOCATE#1,59,I:PRINT#1, 
USING"#H#H#4#. #4": S0:LOCATE#O,S59,24:PRINT 
HO,USING"##H#H##H#H#4. ##"5S0:LOCATE#O,71,24:FKR 
INT" "2:ELSE LOCATE#I,71,1:PRINT# 
1,USING"##H##4#44#. #H#" 3 SO: LOCATE#O,71,24:PRI 
NTH#O,USING'"#H##HH#H#. H#°3: SO: LOCATE 59,24:FR 
INT" u 

1030 LOCATE 239,24: FRINTH#O,USING'"HHHHEH. H# 
“sD 
1040 
CAE 
1050 D$(OP)=D1$+D2$+"e@"+D2:$+D4$+"e@"+DS5( 

OP} +D6$:RETURN 

1060 RETURN 

1070 “SPRG ORDRE CHRONOLOGIQUE 

1080 IF op>=v THEN GOSUB 1150 ELSE GOSUB 
1100 

1090 RETURN 

1109 date$=d5$ (op) :datei$-dS5$ (op+1)xdate 

2$=d5$ (op-1) 

1110 IF date$>=dateZ$THEN 1150 

1120 r$=d5$ (op) :d5$(op)=d5$(op-1):d5$(op 

—1)=r$:r$-=d$ (op) :d$(op)=d$ (op-1):d$(op-1 
)=r$:op=op-1:1F op=i THEN RETURN ELSE 11 

00 

1120 IF date$<datei$THEN RETURN 

1140 r$=d5$ (op) :d5$ (op) =d5$ (op+1):d5$(op 

+1)=r$:r$=-d$ (op) :d$(op)=d$(op+1):d#$(op+i 
)=r$:op=op+i:1F dS5$(op+1)=""THEN RETURN 


LOCATE 48,24:PFRINTHO,USING"#HH#HH##. ## 


ELSE 1100 

1150 date$-d5$ (op) :date2$-d5$ (op-1) 

1160 IF date$>date?2$THEN RETURN ELSE 112 
O 

1170 “SPRG ECRAN ##3#3#36366# 

1180 CLS:CLS#2: PRINT STRINGS (64,"="):PRI 


NT'DATE:"3;L$;"1";: TAB(25) ; "COMPTE COURANT 
21756240":PRINT STRINGS (80, "=") ; : PRINT 
“No T MOD DESIGNATION DATE 
DEBIT CREDIT SOLDE DEBIT SOLDE CREDI 
T";:PRINT STRINGS$ (80, "="); 
1190 LOCATE 1,23:PRINT STRINGS (80,"=")3: 
PRINT TAB(10) ; "TOTAUX"; TAB(38) ;"!"; TAB (4 
7): "1"; TAB(S6);"!":; TAB(68) ; "!": PRINT STR 
ING$ (80, ="); 
1200 ORIGIN 0,5:DRAWR 0,38:MOVER O,282:D 
RAWR 0,70:0RIGIN 43,42: DRAWR 0,315:MOVER 
1,0:DRAWR 0,-315:MOVER 31,0:DRAWR 0,315 
:MOVER 1,0:DRAUWR 0,-315:MOVER 31,0:DRAWR 


0,315: MOVER 1,0: DRAWR O0,-315:MOVER 135, 
O:DRAWR 0,315: MODVER 1,0:DRAWR O0,-315 
1210 MOVER 55,315: DRAWR O,-3547:MOVER 1,0 
:DRAUWR 0,347: MOVER 71,0:DRAWR O,-347:MOV 
ER 1,0: DRAWR 0,347: MOVER 71,0: DRAWR 0O,-Z 
47:MOVER 1,0: DRAWR O,347:MOVER 95,0:DRAW 
R O0,-347:MOVER 1,0: DRAWR 0,347: MOVER 98, 
10: DKRAWR O0,—-263: MOVER 1,0:DRAWR 0,363 
1220 RETURN 
1250 ‘SPRG VISU OPERATION À MODIF OÙ AMD 
RTIR 
1240 OP=VAL (NS) :N$=""2:IF OF>=1 AND OF<18 

THEN 1I=O0OP ELSE IF OF>=18 AND OF<36 THEN 

1=0F-17 ELSE IF OF>=36 THEN 1=0PF-35 
1259 RETURN 
1260 CLS#H#2: INFUT#2, “<Crhange: <Aïnnule:<M 
renu: ",r$ 
1270 IF r$="A"THEN 1280 ELSE 1500 
1289 D$(OP)="" 

1290 GOSUR 1360: FAFER#1,0:FEN#1, 1: GOSUB 
97/0: m=0:op=v: f1=0: GOSUB 640:RETURN 

1500 IF r$="M"THEN FAFER#1,0:FEN#1, 1:RET 
URN 


1310 IF R$="C"THEN D$(OF)="":PAFER#K1,0:F 


EN#1,1:GOSUB 350:GO0OT0 1330 

1320 GOTO 1260 

1330 GOSUB 10890:GOSUB 570:M=0:FL=0:OP=V: 
GOSUB 640 

1340 RETURN 

1350 ‘SPFRG DE REMISE EN ORDRE 

15690 FOR K=1 TO V 

1370 IF D$(K)=""THEN GOSUB 1420:G60T0 1239 
(eo) 
13:80 
1399 
GOTO 
1400 
1410 
1429 
1450 
1440 
1450 
1460 


NEXT K 

FOR L=1 TO V:IF D$(L)=""THEN V=L-1: 
1410 

NEXT 

RETURN 

FOR L=K TO V 

IF L=V THEN D$(L)="":GOTO 1460 

D$ (L)=D$ (L+1) : DS5$ (L)=D5$ (L+1) 

NEXT 

RETURN 

1470 ‘SPRG AMORTISSEMENT 

1480 PAPER#1, 1: PEN#1,0:B=1:GOSUB 690"VID 

EO INVERSEE 

1490 CLS#2:PRINT#2, “CONFIRMATION (O/N)?" 
1500 WHILE ‘A$<>"O"AND A$<>"N":AS=INKEYS: 

WEND 

1510 IF AS="N'THEN A$="":PAPER#1,0:PEN#1 
, 1: RETURN 

1520 AA=AA+1:AS="" 

1530 FOR J=1 TO LEN(D$(OF)) 

1540 IF LEFT$ (RIGHTS (D$ (OP) ,J),1)="@"THE 

N D6S=RIGHTS$ (D$ (OP) ,J-7)ELSE 1570 

1550 P$ (AA) =D$ (OF) : da$ (aa) =d5$ (op):I1F KI 

GHTS$ (D$ (OP) ,1)="C"THEN SA=SA+VAL (D6$)ELS 
E SA=SA-VAL (D6$) 

1560 D$(OP)="":SV=AA:GOSUER 2100:AA=SV: IF 
AA=200 THEN GOSUB 1590 ELSE 1589 

1570 NEXT 

1580 RETURN 

1590 ‘“SPRG MISE EN FICHIER 

1600 FICH$S=LEFT$(DA$(1),4) 

1610 OFENOUT FICH$ 


1629 
168:0 
1640 
1650 
1860 
1679 
1680 
1690 
1700 
1710 
1720 
1750 
1749 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1880 
18990 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


FRINT#9, DAS (1) +DA$ (200) 

FOR K=1 TO 200 

FRINT#9,PS(K) 

NEXT 

CLOSEOUT 

AA=9 

RETURN 

‘SPRG DE SAUVEGARDE 

SI=S1+SA 

OFENOUT"SAISIE" 

FRINT#9,SI,0F,AA 

FOR 1=i TO OP 

FRINT#9,D$(1) 

FRINT#9,DS# (1) 

NEXT 

FOR I=1 TO A4 

PRINT#9,F#(1I) 
PRINT#9,DAS(I) 

NEXT 

CLOSEOUT 

RETURN 

‘SPRG DE CHARGEMENT 
OPENIN"SAISIE" 
INFUT#9,S1,0P,AA 

FOR 1=1 TO OF 

INPUT#9,D$(I) 
INPUT#9,D5$(1) 

NEXT 

FOR 1=1 TO AA 

INPUT#9,P#(1I) 
INPUT#9,DAS (1) 

NEXT 

RETURN 

‘CALCUL DU SOLDE 

SOLDE=0: S0F=0: CLS 

FOR I=1i TO OP 

IF D$(I1)=""THEN 2050 

1990 FOR J=1 TO LEN(DS(I)) 

2000 IF LEFTS(RIGHT$(D#(1),J),1)="@"THEN 
S$=RIGHTS$S(D$(1),J-7):GOT0O 2020 
2010 NEXT J 

2020 IF RIGHTS(S$,1)="C"THEN SOLDE=SOLDE 
+VAL(S$)ELSE SOLDE=SOLDE-VAL (5$) 

2030 NEXT I 

2040 SOF-SOLDE 

2050 SOLDE=SOLDE+S1+SA 

2060 IF a=i THEN RETURN 

2070 IF SOLDE<O THEN LOCATE 25,13:PFRINT" 

SOLDE DEBITEUR:"; SOLDE;" Francs" ELSE LO 

CATE 25,1Z:PRINT"'SOLDE CREDITEUR: "; SOLDE 
3" Francs" 


2080 GOSUB 2730:RETURN 

2090 ‘SFGR ORDRE CHRONO. AMORTISSEMENT 
2100 DATES$=DAS (AA) 

2110 DATE2$=DA$ (AA-1) 

2120 IF DATES>DATEZ$THEN 2140 

2130 R$=DAS (AA) : DAS (AA) =DAS (AA-—-1) : DAS (AA 


—1)=R$S:RS=PS (AA) : P$ (AA) =F (AA-1) :P$ (AA-1 
)=R$:AA=AA-1:1F AA=1 THEN 2140 ELSE 2100 
2140 RETURN 

2150 CLS:LOCATE 16,9:PRINT M1$;" FICHIER 
SAISIEs ses... CS1" 

2169 LOCATE 16,11:PRINT M1$;" FICHIER AM 
ORTISSEMENT:.....CA1" 

2170 LOCATE 16,13:FRINT"RETOUR MENU: ";,ST 
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RINGS (16+LEN(M1#),".")5"CMI" 

2180 WHILE A$<>"S"AND A$<>"A"AND A$<>"M" 

: AS=INKEYS : AS=UFPERS (A$) : WEND 

2190 IF A$="S"THEN M$="SAISIE":NE=0F: DAD 

S=RIGHTS (DS$ (1) ,2)+MIDS$ (DS$ (1),3,2) +LEFT 

& (D5$ (1), 2): DAFS=RIGHTS (D5$ (OF) , 2) +MID#( 

DS$ (OF) ,3,2)+LEFT# (D5$(OP),2):GOTO 2210 

2200 1F A$="A"THEN M$="AMORTISSEMENT":NE 

=AA: DADS=RIGHTS (DAS (1),2)+MID$ (DAS (13,3, 

2) +LEFTS (DAS (1),2) : DAFS=RIGHT$ (DAS (AA) ,7 

)+MID$ (DAS (AA) ,3, 2) +LEFT$ (DAS (AA) , 2). 

2210 RETURN 

2220 CLS#1 

2230 DATEIS$=RIGHTS (DS$ (D) ,2)+MIDS (d5% (d) 

» 35 2)+LEFTS (d5$ (d),2) : DATEFS=RIGHTS (D5$ ( 

OP) ,2)+MID$ (DS$ (OP) , 3,2) +LEFTS$ (DS$ (OF) ,2 

):WHILE D$(I)<>"":1$(1)=D$ (1): 1=1+1:WEND 

2240 RETURN 

2250 DATEI$=RIGHTS (DAS (D) ,2)+MID$ (dA$ (d) 

53 2)+LEFTS$ (dAS (d) , 2) : DATEFS£RIGHTS$ (DAS ( 

OP) ,2)+MID$ (DAS (OP) ,3,2)+LEFTS$ (DAS (OP) ,2 

):WHILE P$CI)<>"":1$(I1)=P$(I):1=1+1:WEND 

2260 RETURN 

2270 CLS:LOCATE 15,2:PRINT"EDITION DU FI 

CHIER “;M$;" PERIODE DU ";DATEIS$;" AU “; 

DATEF$:IF C=2 THEN 2300 

2280 PRINT#8,TAB(15) ; "EDITION DU FICHIER 
“:M$;" FERIODE DU ";DATEIS$;" AU "; DATEF 

$ 

2290 PRINT#8, STRING$ (80, "="); 

2300 PRINT STRING$ (80,"="); 

2310 PRINT TAB(5);"No :'ST 'MOD No ! 

DESIGNAT ION ! DATE ! MONTANT DEBIT!MO 

NTANT CREDIT!":1F C=2 THEN 2340 

2320 PRINT#8,TAB(5); "No !ST !'MOD No ! 
DESIGNAT ION ! DATE ‘ MONTANT DEBIT'! 

MONTANT CREDIT!" 

2330 PRINT#8, STRING$ (80, "="); 

2340 PRINT STRING$ (80, "="); 

2350 K=0:CLS#1 

2360 FOR L=D TO I-1 

2370 K=K+1 

2380 11$%=MIDS(I$(L),2,3):1F RIGHT$#(11$,1 

)="@"THEN I1$=LEFTS(11$,2) : 12$=MIDS$ (1$ (L 

),5,3)2:IS=RIGHTS (18 (L) ,LEN(I$(L))-7)ELSE 
12$=MID$(1$(L),6,3) 2: IS=RIGHTS (1$ (L) ,LEN 

(1$(L))-8) 

2390 FOR J=1 TO LEN(I$) 

2400 IF RIGHTS(LEFT#(1$,J),1)="@"THEN 13 

S=LEFTS(1$,J-1):I$=RIGHTS(I$,LEN(IS$)-J): 

GOTO 2429 

2410 NEXT J 

2420 I14$=LEFTS(1$,6) 2: 14$=RIGHT$ (14%, 2) +M 

ID$(14#$,3,2)+LEFT$(14$,2):15$=RIGHTS$ (IS, 

LEN(I$)-6)2IF RIGHT$(15$,1)="C"THEN 16$= 

LEFT$(15$,LEN(IS$)-1)ELSE IS$-LEFT$(15$, 

LEN(I5$)-1):16$="":GOTO 2440 

2430 15$="" 

2440 GOSUB 2480 

2450 IF K=17 THEN GOSUB 2470 

2460 NEXT L 

2470 LOCATE 2,1:PRINT "<TOUCHE>":CALL &E 

B03:CALL &BB06:K=0:CLS#1: RETURN 

2480 FRINT#1, TAB (5) ;USING"###"3;L; 2: FRINT# 
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1,"! "SLEFTS(IS$(L),1)5" !"511$; TAB(17)3; I 
2$5"!":13$; TAB(41)5;"!";14$;" 1"; TAB(54):P 
RINT#1, USING" #4#4###. #45 VAL (155$) ; : PRINT#1 
, TAB(63);"1"3 TAB(69) : PRINT#1,USING'"#4###t# 
#4": VAL(I6$) ;:PRINT#1,TAB(78);"!"2IF C= 
2 THEN 2500 

2490 PRINT#8, TAB (5) ;USING“###" 5; LS; : PRINT# 
B,"! ";LEFTS(I$(L),1)5" "511$; TAB(17)351 

2$;"1%: 136: TAB(41);"!"514$;"!": TAB(S54):P 

RINT#8, USING" ##4#HitH. #45 VAL CIS$) 5 : PRINT#8 
, TAB(63); "1"; TAB (69) : PRINT#8, US ING"####t# 
.##"3; VAL(I6$) ; :PRINT#8,TAB(78);"t" 

2500 RETURN 

2510 ‘SPGR ETAT FICHIER 

2520 DIM 1$(200) : CLS: CLS#3:CLS#4:D=1:LOC 

ATE 20,2:PRINT M1$;" FICHIER ";M$ 

2530 LOCATE#3S,5,1:PRINT#3,"ETAT DU FICHI 

ER “3 M$:PRINT#3S:FRINT#S, "Nbre d'ENREGIST 

REMENTS: “53 NE: PRINT#3: PRINT#3, "DATE DE DE 

BUT"; SPC (9); "2: "5; DADS: PRINT#3S: PRINT#S, “DA 

TE DE FIN";SPC(11);":"3;DAFS$ 

2540 LOGATE#4, 10, 1:PRINT#4, "OPTIONS: ":PR 
INT#4: PRINT#4,"LA TOTALITE:";STRINGS (17, 
“")5;"C11":PRINT#4:PRINT#4,"A PARTIR:":P 

RINT#4," —- D'UNE DATE: "3; STRINGS (12,". 
")5"C21":PRINT#4," — D'UN ENREGISTREM 

ENT:...C31":PRINT#4 

2550 PRINT#4,"LES N DERNIERS: "3; STRINGS (1 

4, “m") 5"Cc41" 

2560 LOCATE 22,22: INPUT"VOTRE CHOIX:";C$ 
:1IF VAL(C$)>4 OR VAL(C#$)<O THEN 2560 

2570 ON VAL(C$)GOTO 2580, 2590, 2660, 2680 

2580 D=1:1=D: RETURN 

2590 CLS#4:LOCATE#4,3,5: INPUT#4, "DONNEZ 

LA DATE DE DEPART:";DARS:IF DAR$="" THEN 
1=0: RETURN ELSE GOSUB 2700:IF E=1 THEN 

2590 

2600 D$=RIGHTS$ (DARS, 2) +MIDS (DARS, 3, 2) +LE 

FT$ (DARS, 2) 

2610 IF A$="S"THEN 2640 

2620 WHILE D$>DAS$ (D) : D=D+1:WEND 

26350 I1=D:RETURN 

2640 WHILE D$>D5$ (D) : D=D#1:WEND 

2650 1=D:RETURN 

2660 CLS#4:LOCATE#4, 1,5: INPUT#4,"A PARTI 

R DE QUEL ENREGISTREMENT"; D:1F D<O OR D> 

NE THEN 2660 

2670 I=D:RETURN 

2680 CLS#4:LOCATE#4,5,5: INPUT#4, “COMBIEN 
D'ENREGISTREMENTS";I:1F I1=0 THEN RETURN 
ELSE D=NE-I1+1:1F D<O OR D>NE THEN 2680 
2690 I=D:RETURN 

2700 IF LEN(DAR$)<>6 THEN 2710 ELSE IF V 

AL(DAR$)=0 THEN 2710 ELSE DD=VAL (RIGHTS ( 

DARS$, 2)+MID$ (DAR$, 3, 2)+LEFT$ (DARS,2))2:1F 
DD<VAL (RIGHTS (DAD$, 2) +MIDS$ (DAD$, 3, 2) +LE 

FT$(DAD$,2))0R DD>VAL (RIGHTS (DAF$, 2) +MID 
S(DAF$,3,2)+LEFT$S (DAF$,2)) THEN 2710 ELSE 
E=0:GOTO 2720 

2710 E=1:RETURN 

2720 RETURN 

2730 CLS#2:LOCATE#Z, 3,2: PRINT#2, " <TOUCHE 
>":CALL &BB03:CALL &BBO06: RETURN 

3000 RETURN@ 


Érrpes ns Éarvioes Micro-Ordinateurs Tél. service commande 
Micro-ordinateurd 43.38.60.00 


Centre serveur Minitel 
, 84, bd Beaumarchais - 78011 Paris 43.38.00.29 
X bp. ection Métro Bastille ou Chemin Vert 
AK TITI De 10 h à 20 h sauf dimanche. SERVICE CREDIT IMMEDIAT 


5 années d'expérience au service des utilisateurs, 
LA REFERENCE EN MICRO INFORMATIQUE 
CPC 464 CPC 6128 


K7 vierges Disquette 3” : 
28 F/unité 


27 F par 10 P.U. 


| C24 - 8 F/unité 
7,50 F par 10. P.U. 


Housses en promo 


Prix GENERALement constaté 
Prix GENERALement constaté au 1/01/87 


au 1/01/87 + cadeau VISMO 
+ cadeau VISMO 


PCW 8256-8512 
PERIPHERIQUES 


Prix GENERA 
Imprimante DMP 2000 [ Un au un 
pour 464-6128 .............. 1 690 F TTC ÿ U 
Lecteur DD1 464............. 1 990F TTC 
Lecteur FD1 464/6128 ........ 1 590 F TTC ‘ 
MP2 (Interface PERITEL) ....... 490 F TTC 
Souris AMX ................ 690 F TTC 
Crayon Optique .............. 290 F TTC 
Joystick Compétition PRO... 180 F TTC 7 io 
Lecteur TRAN 5’’1/4 - 1M...... 1 799 F TTC 


Vismo distributeur du compatible JASMIN TURBO) 


PC 1512 LOGICIELS 


DISPONIBLE 


Tous les logiciels du PC 1512 
et compatibles 


Prix GENERALement Cadeau : 10 boîtes 
constaté au 1/01/87 disquettes 5’ 1/4 


VISMO : c'est plus de 300 points de vente amis en France 


Livraisons dans toute la France sous 48 h 
BIEN EVIDEMMENT SUR STOCK DISPONIBLE 


un grossiste sans stock est une machine sans logiciels 


à retourner à : VISMO, 84, bd Beaumarchais, 75011 PARIS 
(Pas sérieux sur les prix, s'abstenir 1) 


IMPRIMANTES 
ET CARACTERES ACCENTUES : 
LES SOLUTIONS 


Denis BONOMO 


minuscules accentuées n’est pas toujours facile, surtout avec un 


: e courrier des lecteurs en témoigne : sortir sur imprimante des 


traitement de texte. Nous allons tâcher de vous expliquer pour- 
quoi et surtout... comment y remédier ! 


Travailler’en traitement de texte pour 
faire son courrier, écrire une thèse ou 
encore, envoyer un article à la revue CPC 
est chose courante et il est agaçant de 
ne pas pouvoir sortir les accents circon- 
flexes… ou les c cédille ! Les problèmes 
proviennent souvent d'une mauvaise 
connaissance de l'imprimante ou de la 
flemme de lire son mode d'emploi ! Ajou- 
tons à celà un logiciel de traitement de 
texte sans notice (tiens, pourquoi ?) et 
tous les ingrédients sont réunis pour un 
échec caractérisé. 

Analysons les problèmes un à un. Du 
côté de l'imprimante, une simple lecture 
de son mode d'emploi permet de savoir 
si on va pouvoir imprimer ou non en ita- 
lique (par exemple). L'AMSTRAD ayant 
une sortie sur 7 bits, on ne peut impri- 
mer un caractère dont le code ASCII est 
supérieur à 127. Ceci étant dit, il reste 
les 128 premiers caractères (codes O à 
127) qu'il est possible de bien utiliser et, 


en particulier, ceux qui sont modifiés par 
des switches internes à l'imprimante. 
Ainsi, sur certains matériels, le 6 s'ob- 
tient avec |. Evidemment, ce n’est pas 
très pratique de taper | pour obtenir é, 
c'est pourquoi un traitement de texte tel 
que Tasword assure la redéfinition d’un 
second jeu de caractères, permettant, en 
tapant | (et une autre touche) d'obtenir 
le é à la fois sur l'écran et sur l'im- 
primante. À ce propos, n'oubliez pas que 
ce n’est pas parce qu'un caractère a été 
redéfini sur l'écran (instruction SYMBOL) 
qu'il le sera sur l'imprimante. Le traite- 
ment de texte enverra un code déclen- 
chant sur l'imprimante l'écriture de la let- 
tre voulue. On peut ainsi, en passant 
dans le menu ‘‘redéfinition’’ de TAS- 
WORD, affecter au signe & (par exem- 
ple) la lettre ê. Les codes à envoyer 
seront alors : 101 (code du e), 8 (code 
du backspace) et 94 (code de l'accent 
circonflexe). À chaque appui sur CTRL, 


s et & l'écran affichera ê et la mémoire 
contiendra la séquence précitée. 

En fait, les principales difficultés rencon- 
trées par les utilisateurs se situent à ce 
niveau. || faut savoir que l'imprimante 
a besoin de 3 codes pour écrire un ‘’ê” 
alors qu’un seul lui suffit pour afficher un 
‘*é”" ou un ‘‘ç”’. Certaines imprimantes 
peuvent écrire le ‘’ê’’ en une seule fois 
mais dans ce cas, le code à envoyer est 
souvent supérieur à 127, ce qui le rend 
inaccessible à l'AMSTRAD. 


A titre d'exercice, recherchez les séquen- 
ces à envoyer pour écrire un ô où un O 
(zéro barré) ou encore le signe + ( + ou 
-). Avec deux doigts de bon sens, on 
peut faire bien des choses | 

La bonne utilisation de l'imprimante 
passe impérativement par la lecture 
attentive de son manuel. C'est fou ce 
qu'on peut y apprendre |! 


DES SOLUTIONS 
POUR NOS IMPRIMANTES 


Maurice SCHAPIRO 


LE DOUBLE SAUT DE LIGNE 

Vous avez une Epson du type, FX ou RX 
et elle éffectue le double saut de ligne. 
Tant qu'il s'agit de texte vous résolvez 
le problème par un 
PRINT # 8,CHR$(27);""1""; mais pour le 
graphisme c’est plus difficile au point que 
vous ne pouvez pas utiliser SUPERPAINT 
car ce programme n'est pas paramétra- 
ble au niveau imprimante. 

La solution est d'une simplicité désar- 
mante, sans aucun risque et ne prend 
que quelques secondes. 

Tout le problème vient du fait qu'il faut 
absolument décourt-circuiter la broche 
14 de l'imprimante. Plutôt que de cou- 
per le fil correspondant au risque de se 
tromper, voilà comment il faut procéder. 
Procurez-vous une étiquette adhésive du 
genre de celle que l'on utilise en infor- 
matique pour les mailing. Eteignez l'Ams- 
trad et l'imprimante, déconnectez le 
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câble au niveau de l'unité centrale et 
retournez le clavier l'arrière vers vous. Le 
connecteur de l'imprimante est mainte- 
nant sur votre droite et vous voyez les 
nombreux traits cuivrés sur le circuit. 
Découpez une toute petite bande de 
papier adhésif dans l'étiquette (n’utilisez 
pas de ruban adhésif transparent), il faut 
qu'elle soit suffisamment large pour recou- 
vrir UN de ces traits et pas trop large pour 
ne pas déborders sur les autres. 

A l’aide de l’agraphe d’un capuchon de 
stylo à bille positionnez la petite bande 
adhésive que vous venez de confection- 
ner sur le contact numéro 14 (en partant 
de votre droite), puis appuyez délicate- 
ment sur cette bandelette pour la faire 
adhérer. Coupez au cutter ou à la lame 
de rasoir ce qui dépasse et remettez en 
place le connecteur. Voilà c'est tout, 
vous avez maintenant une imprimante 
aux normes parfaitement standard, plus 


aucun problème, Superpaint tourne bien 
et il ne vous reste plus qu’à vous armer 
de courage et à mettre à jour tous vos 
programmes en enlevant la commande 
qui envoyait le CHR$(27);"*1"";. 

Bon courage et n'oubliez pas de modi- 
fier FORMLIST (voir la rubrique 
calamités). 


DES RUBANS POUR PCW 

Les possesseurs de PCW 8256 ont 
encore du mal à se procurer des rubans 
encreurs pour leur imprimante. 

La solution consiste à acheter des rubans 
pour les SEIKOSHA, avec la référence 
SP.80051. Ils sont au même prix parfois 
même moins cher, ils fonctionnent à la 
perfection et on en trouve pratiquement 
partout. 


REMETTEZ VOS RUBANS A NEUF 
Vous avez une imprimante et vous ne 


trouvez pas de ruban, vous imprimez 
beaucoup et vous voulez faire des éco- 
nomies, vous êtes tout simplement radin 
(rayez la ou les mentions inutiles) voici 
la solution. 

1) Allez chez votre papetier et achetez 
un petit flacon d'encre à tampon NON 
GRASSE. Attention, c'est primordial 
sinon gare à l’encrassement de la tête 
d'écriture. 

2) Vous prenez un petit étau ou quelque 
chose qui vous permette de maintenir 
fermement en place la cartouche de 
votre ruban à réencrer. 

3) Vous vous installez sur la table de la 
salle à manger, de préférence 10 minu- 
tes avant l’arrivée des invités et sur une 
nappe d’un blanc immaculé (votre ten- 
dre moitié ne veut pas ? Ah bon !). 

4) Vous serrez DELICATEMENT la car- 
touche dans l'étau, le ruban vers le haut 
bien sûr. 

5) Vous versez un peu d'encre au fond 


d'un tout petit récipient qui ne soit pas 
fragile ; une tasse en porcelaine de Chine 
fera parfaitement l'affaire. Quoi ca 
tâche ? et alors ça n’a pas d'importance 
puisqu'après vous la jetterez à la pou- 
belle (votre tendre moitié ne veut pas ? 
Ah bon !). 

6) A l'aide d'un petit tampon ou d’un pin- 
ceau de la largeur du ruban, avec des 
poils un peu raides vous allez étendre de 
l'encre sur le ruban (bonjour la nappe, les 
pantalons, les godasses, le tapis). 

Il faut absolument prendre un point de 
repère si vous ne voulez pas y passer la 
nuit. Mais vous avez dû constater que 
votre cartouche possède une petite 
molette qui vous permet de tendre le 
ruban (c'est parfois en creux et on y 
accède avec une lame de tournevis). 
Tournez la molette jusqu'à ce que la cou- 
ture du ruban soit visible ; commencez 
alors à réencrer en faisant avancer le 
ruban d'une longueur à chaque fois. 


Lorsque la couture, réapparaît vous avez 
fait un tour complet et c'est fini. 
Rangez le ruban pour la nuit. Le lende- 
main, faites faire un tour à vide pour bien 
répartir l'encre et si vous voulez faire un 
travail soigné faites imp:imer une quin- 
zaine de lignes pour rien avant de com- 
mencer votre travail. Vous êtes prêt 
maintenant pour de très nombreuses 
feuilles. Avec 2 cartouches pour pouvoir 
faire le roulement et vous ne serez plus 
jamais en panne. Si vous devez conser- 
ver la cartouche réencrée un certain 
temps sans vous en servir, emballez-la 
dans une feuille de plastique pour qu'elle 
ne sèche pas trop vite. 

L'auteur a réencré le ruban de sa FX 100 
15 fois !! avant que celui-ci ne com- 
mence à présenter des signes de fatigue. 
Cela en dit long sur la qualité et le soin 
apportés par les fabricants à ce genre de 
produit, chapeau | 


L'IMPRIMANTE AR 55 
AU BANC D'ESSAI 


Marcel LE JEUNE 


onnaissez-vous Jean-Pierre LEVEQUE, le sympathique 

directeur de Loisitech ? C’est un informaticien passionné 

qui a le don de dénicher des produits nouveaux qu'il vous 
montre avec le même enthousiasme qu’un sommelier qui vous 
présente ses meilleurs crus. Chacune de nos rencontres com- 
mence invariablement par : ‘’Il faut absolument que vous 
voyez ça !’’. Lors de la dernière AMSTRAD EXPO, le ‘’ça’’ en 
question était une nouvelle gamme d'imprimantes dont il 
assure désormais la distribution : les Performences AR 50 et AR 
55 (rassurez-vous, il n’y a pas de faute d'orthographe). 


La différence essentielle entre les deux 
modèles réside dans la largeur de papier 
utilisable qui va de 4 à 10 pouces (80 
colonnes) pour la AR 50, et de 4 à 16 
pouces (163 colonnes) pour la AR 55. 
C'est ce dernier modèle que nous avons 
testé. Le boîtier en matière plastique de 
couleur blanche est très élégant, malgré 
sa largeur inhabituelle. Deux capots d'in- 
sonorisation semi-transparents permet- 
tent d'accéder dans les entrailles de la 
machine pour la mise en place du ruban 
et du papier, opérations qui se font sans 


aucune difficulté. L'entraînement du 
papier se fait, au choix de l'utilisateur, 
par traction ou par friction et un disposi- 
tif de chargement feuille à feuille est dis- 
ponible en option. Le panneau de com- 
mande comporte, en plus des tradition- 
nels Form Feed et Line Feed, un bouton 
de sélection permettant de choisir le 
nombre de caractères par pouce parmi 
les valeurs suivantes : 10, 12, 17 et 
espacement proportionnel. La touche 
NLQ donne immédiatement accès à la 
qualité courrier. 

A l'arrière de l'imprimante se trouve une 
petite porte donnant accès à deux grou- 
pes de micro-interrupteurs permettant de 
configurer l'imprimante. |l est ainsi pos- 
sible de passer instantanément de la 
Epson FX 80 à la IBM ProPrinter, ce qui 
met l'utilisateur à l'abri d'éventuels pro- 
blèmes d'incompatibilité. A proximité de 
cette porte se trouve une petite trappe 
destinée à recevoir des polices de carac- 
tères complémentaires stockées dans 
des Romcards de la taille d'une carte de 
crédit. La machine est dotée d’un tam- 
pon d'entrée de 6968 octets qui peut 
être gonflé par un module RAM addition- 
nel de 8 k. 

La tête d'impression comporte 9 aiguil- 


les, ce qui est parfait pour le graphisme. 
Ah oui, deux dernières choses que j'al- 
lais oublier. Tout d'abord, pas de problè- 
mes d’accents, la machine est prévue 
pour 8 langues : USA, GB, Allemagne, 


France, Danemark, Suède, Italie et Espa- 
gne. Enfin, la vitesse d'impression vrai- 
ment. impressionnante ! 200 caractè- 
res par seconde en mode normal et 40 
en NLO. Et le prix, me direz-vous ? Et oui, 
mon cher monsieur : 6000 F TTC pour 
le modèle AR 55, et 5000 F, toujours 
TTC, pour la 80 colonnes. 

La qualité se paye ! 
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LA TABLETTE GRAPHIQUE : 


Denis BONOMO 


GRAPHISCOP II 


ce curieux instrument ressemblant à une potence ? Oui, bien 


N ‘avez-vous jamais été attiré par des publicités où apparaît 


sûr, et vous aimeriez savoir comment fonctionne cet outil à 
dessin... Et bien, lisez ce qui suit ! 


GRAPHISCOP Il est un pur produit de 
l'ingéniosité française. L'idée de départ 
est séduisante : il est difficile de repro- 
duire un dessin sur l'écran d’un ordina- 
teur, en utilisant un simple joystick ou les 
touches de curseur. Pour faciliter la tâche 
du dessinateur, il faudrait pouvoir lui per- 
mettre de suivre les contours du dessin 
à l’aide d’un outil dont le couplage à l’or- 
dinateur autoriserait la reproduction sur 
l'écran. GRAPHISCOP II est née. Elle 
fonctionne comme un joystick inversé. 
Accroché à une potence, un ‘‘crayon’’ 
est solidaire d'un potentiomètre agissant 
sur un système de conversion 
‘’analogique-digitale’’. Un logiciel appro- 
prié déplace un curseur sur l'écran, dont 
la position est liée à celle du ‘crayon’. 
A l'extrémité du ‘’crayon’’ se trouve un 
poussoir servant à valider ou non le 
tracé. 

La tablette graphique est en matière plas- 
tique moulée, de couleur bleue. Le cou- 
plage à l'AMSTRAD s'effectue par la 
prise joystick. L'alimentation de l’ensem- 
ble est prélevée, par un jack, sur le 5 V 
de l'AMSTRAD. 

Un logiciel et une notice accompagnent 
GRAPHISCOP II. On dispose alors d'un 
bon DAO, disposant des fonctions les 
plus classiques : point, trait, trace, cer- 
cle, remplissage, miroir, gomme, etc. 
Nos essais ont démontré qu'il est illusoire 
de vouloir réaliser un dessin en suivant 
son tracé sur une feuille de papier : la 
précision de positionnement du curseur 
(liée à la qualité du potentiomètre et du 
circuit électronique associé) n'étant pas 
parfaite. || est d’ailleurs très difficile de 
désigner un point, de déplacer le crayon, 
puis de revenir très précisément sur le 
même point. Vu sous cet aspect, GRA- 
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PHISCOP Il est un peu décevant. Par 
contre, la notice conseille à l'utilisateur 
d'employer un transparent, sur lequel 
figure le dessin d'origine, fixé sur l'écran 
et d'en suivre les contours en déplaçant 
le curseur en mode trait (‘’élastique'’)… 
Pour affiner les détails, il sera nécessaire 
de travailler en mode ‘’Loupe’’. Regret- 
tons simplement que, dans ce mode, un 
point validé par erreur ne puisse être 
effacé immédiatement. 

Pour ceux qui ont connu (notamment sur 


ORIC) la première version de GRAPHIS- 
COP, soulignons la meilleure stabilité 
mécanique de GRAPHISCOP Il. D'ailleurs 
plusieurs créateurs de logiciels l'ont déjà 
adoptée. 

Si le dessin est votre dada et que vous 
désirez récompenser les efforts d’un 
inventeur français, allez essayer GRA- 
PHISCOP Il ou renseignez-vous auprès 
de mmc au (1) 42.56.12.82. 
GRAPHISCOP Il est proposée au prix de 
990 F TTC. 


le coin 
du livre 


JE DÉBUTE EN BASIC AMSTRAD 

C. Delannoy. 152 pages. 

MO Buanderie érenn 91F 
Ce livre est écrit dans un langage très simple. La 
démarche est progressive, chaque notion est pré- 
sentée sur un exemple simple accompagnée de 
nombreux exercices. L'auteur nous familiarise avec 
les erreurs possibles. 


PROGRAMMATION SUR AMSTRAD 


PCW 8256/8512. Basic et fichiers. 

P. Bihan. 184 pages. 

Ré 2 nu noie ame ir 149F 
Cet ouvrage est écrit selon une progression éprou- 
vée en cours. 

Il est destiné à intéresser le débutant puisque conçu 
dans un souci didactique, en supposant la program- 
mation inconnue, et en même temps susceptible 
d'intéresser le programmeur confirmé avec l'impor- 
tant chapitre réservé aux fichiers. En effet, le lan- 
gage Basic de l'AMSTRAD PCW 8256/8512 utilise 


Le livre est divisé en neuf chapitres qui se terminent 
tous par une série d'exercices dont la solution est 
toujours commentée et expliquée. 


MULTIPLAN SUR AMSTRAD 

C. Delannoy. 280 pages. 

PTE rincer inner 195F 
Ce livre a été écrit pour vous ! Il va vous permettre 
de “piloter” parfaitement ce logiciel et vous donner 
ainsi les moyens de réaliser facilement et en toute 
sécurité des tableaux “sur mesure”. 

Chaque notion vous est présentée sur un exemple 
simple. Vous êtes ensuite guidé pas à pas dans une 
expérimentation qui vous en fait explorer les multi- 
ples facettes. 

La plupart des chapitres sont suivis d’un récapitulatif 
de “ce que vous devez savoir”; vous êtes ainsi en 
mesure de contrôler votre progression. 


PROGRAMMES DE PHYSIQUE SUR 
AMSTRAD 


P. Beaufils, M. Lamarche. Y. Muggianu. 
192 pages. 

MORE isolants ass dus ét 150F 
Les auteurs, professeurs de lycée, ont voulu libérer 
des longs calculs et des formules “bombardées” 
afin de vous permettre une nouvelle approche de la 
physique. 

Vous trouverez dans ce livre 28 programmes corres- 
pondant à l'enseignement de la physique en classes 
de terminale des lycées. Ils traitent de la mécanique, 
de l'électricité, de la thermodynamique, de l'optique 
et de la chimie. 
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BON DE COMMANDE 


PROGRAMMES DE MATHÉMA- 
TIQUES SUR AMSTRAD 


P. Beaufils, M. Lamarche, Y. Muggianu. 
192 pages. 

RES 2.0 sou sn ns 150F 
Voici des programmes de mathématiques écrits en 
BASIC du niveau d'une classe de terminale de lycée. 
Accompagnés de leurs commentaires, ils transfor- 
ment l'ordinateur en un outil pédagogique de valeur 
et un instrument de calcul puissant pour résoudre 
bien des problèmes. 

En second plan, les auteurs ont voulu montrer que 
les mathématiques ne sont pas mortes avec l'usage 
de l'ordinateur, bien au contraire: l'écriture d'un pro- 
gramme comme la critique des résultats nécessite 
des connaissances solides et variées. 


CALCUL NUMÉRIQUE SUR 
AMSTRAD 


M. Rousselet. 168 pages. 

RO EN issued detatiests 150F 
Les règles à calcul, les tables de racines carrées ou 
de logarithmes ont fait leur temps. 

Cet ouvrage met à la portée de tous de nombreux 
outils de calcul. Les principaux domaines du calcul 
numérique sont abordés : résolution des équations et 
des systèmes, intégrations, statistiques et probabili- 
tés, calculs différenciels, etc. 


FAITES VOS JEUX AVEC AMSTRAD 
C. Delannoy. 200 pages. 

ROT ETS 55 rss seoens ententes 10F 
Ce livre vous propose un éventail de jeux exploitant 
pleinement les possibilités graphiques et sonores 
des AMSTRAD CPC 464, CPC 664 et CPC 6128. 
Son rôle ne se limite cependant pas à celui d'un 
simple recueil de programmes. Tout d'abord, il vous 
offre la possibilité d'adapter chacun d'entre eux en 
fonction de vos goûts et de vos désirs, et cela sans 
même que vous ayez besoin de connaître le Basic. 
C'est dans ce but que chaque jeu est accompagné de 
nombreuses suggestions de personnalisation qui 
vous sont expliquées dans le moindre détail. 


PREMIERS PROGRAMMES 

Rodnay Zaks. 248 pages. 

MED eee radauspexs 108F 
Comportant de nombreux diagrammes et illustra- 
tions en couleur, ce livre vous enseigne les bases de 
la programmation en BASIC sur Amstrad. Aucune 
expérience préalable de la programmation n’est 
nécessaire. 


AMSTRAD 56 PROGRAMMES 

S.R. Trost. 160 pages 

Ref: 82 55555 om inem desert 78F 
Ce livre vous propose 56 programmes prêts à l'em- 
ploi dans de nombreux domaines d'application per- 
sonnels et professionnels: finances personnelles, 
gestion, immobilier, analyse de données, éducation. 


TECHNIQUES DE PROGRAMMA- 
TION 

ET JEUX EN ASSEMBLEUR 

G. Fagot-Barraly. 176 pages. 

MOT D rss raserpaanrr Varenne s8F 
Cet ouvrage contient des programmes de jeux écrits 
pour les ordinateurs Amstrad CPC 464, 664 et 6128. 


Chaque programme est accompagné d'une analyse 
pédagogique de la structure des phases essentielles 
et de tableaux résumant la fonction et les valeurs 
possibles des principales variables. 


GUIDE DU GRAPHISME 

J. Winford. 208 pages. 

MES SR initier andere use et 108F 
Cet ouvrage présente toutes les techniques indis- 
pensables pour vous permettre de réaliser de façon 
simple et rapide des programmes graphiques (ges- 
tion des couleurs, utilisation des différents modes 
vidéo, tracé de courbes, réalisation de graphiques 
animés). 


GRAPHISME EN 3 DIMENSIONS 

T. Lachand-Robert. 240 pages. 

BL DS shoes iprerseserendente 148F 
Vous pourrez, grâce à ce livre, représenter des 
polyèdres, des surfaces, voire des objets plus com- 
plexes en trois dimensions sur l'écran de votre ordi- 
nateur. Les faire pivoter pour les observer sur tous 
les angles... etc. 


JEUX D'ACTION 

P. Monsaut. 96 pages. 

RU ns peceshri em ete den 49F 
18 jeux d'action en BASIC pour votre Amstrad: tank, 
trace, D.C.A, blitz, squash, alphabet, numérix, atter- 
rissage, etc. 


PROGRAMMER EN dBASE III 


ET III PLUS 

Par René Cohen. 288 pages. 

Réf. P4 185F 
L'auteur s'adresse aux débutants complets 
qui vont bâtir une application complète de 
gestion de fichiers clients, de stocks ou de 
facturation. Tous les programmes dBASE 
sont largement commentés pour vous per- 
mettre de les modifier ou de les adapter à 


dBASE ET SES FICHIERS - III 
ET III PLUS 


par Jacques Boisgontier. 240 pages. 

OT C8 à SRE PE OT UE 185F 
Toutes les commandes et les fonctions de 
dBASE III sont décrites et illustrées dans ce 
livre par un exemple concret. 


LA. SUR AMSTRAD CPC : 


LANGAGE ET FORMES 

Par Thierry et Eric Lévy-Abégnoli. 
176 pages. 

TS RE CT 195 F 
Ce livre concerne deux notions bien préci- 
ses de l’Intelligence Artificielle : le langage 
naturel et la reconnaissance de formes. 

Le langage naturel : le programmeur fait en 
sorte que l'ordinateur comprenne notre lan- 
gage, et qu'il parle à son tour en langage 
naturel. 

La reconnaissance de formes : l'ordinateur 
reconnaît une forme par rapport à une autre 
(un carré par rapport à un ballon) et fait des 
comparaisons entre les formes qui lui sont 
présentées. 


GESTION SUR AMSTRAD PCW 
Par Jean-Michel Jego et Alain Gargaden- 
nec. 240 pages. 

Réf. P2 175F 
Ce livre permet de découvrir progressive- 
ment les trois logiciels complémentaires les 
plus utilisés sur Amstrad PCW et CPC 6128: 
LocoScript (traitement de texte), dBASE II 
(base de donnée) et Multiplan (tableur), 
grâce aux modèles et tableaux proposés 
dans ce livre. 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


A renvoyez avec votre règlement à STAMP DIFFUSION, 


27, Bd de la Fraternité - 44100 NANTES. 
Frais de port en sus: 25F 
(gratuit pour toute commande supérieure à 300 F) 


Ci-joint mon règlement par chèque ou mandat. 
Nom 


Réf. Titres 


l 


T— 
OR EE LE 
+ 


LU OR ER RE 
20 Fo % + 
0 # RÉFLEXION RAG + 
40 | # 
50 ‘+ musique de *# 
ëli * # 
70 # SCOTT JOFLIN +# 
gû # # 
90  ‘ *# adaptation # 
100 ‘ + x 
11o # HENRI BITINER + 
120 # # 


DEC REJET OO 

140 

150 DEFINT a-z 

160 ENV 1,1,9,1,2,-1,2,7,-1,8 

170 ENV 23 Ditololols 150085515425 19 2 

Q 

18ü ENV 3,1,7,4,7,-1,20 

190 ENT -6,1,0,14,1,1,7,2,-1,7,1,1,7 

200 DIM ni4%9):DIM d(409):DIM mifé4):DIM 
e(264) 

210 

220 ‘ # lecture et stockage des donnees 
# 

DEC) 

240 MODE 2 

256 FRINT'VEUILLEZ FATIENTER QUELQUES IN 
STANTS S,V,F," 

260 * 


Offjoplin 


270 FOR 1=1 TO 405 

296 READ #,vyin(ii=kidii)zy 
290 NEXT 

200 

310 FOR 1=1 T0 Zé4 

220 READ x,yim(ii=xkie(lizy 
330 NEXT 

340 

250 GOSUR Z4éû 

ZG0 

270 EVERY 6,0 GOSUE 282û 
Z8û EVERY £é,1 GOSUE 289ûù 
270 

AGO © # boucle principale * 
4ic 

420 tel: asiib=iskeü: vel 
430 g=0:h=0 

445 ON Sü(i: GOSUE 470 

450 ON SQ(£) GOSUE 735û 

460 WHILE a*0 OK b:0G:WEND 
A7O k=k+1 

480 ON E GOTO 490,500,490,510,320, 530,32 
0,540,550,560,550,570, 580, 590,580, SO, él 
î 


ASS a=26:b=20:G0T0 4Zû 
SO a=123%3:b=77: 6010 420 
310 i27:b= . GOTO 47 
SE 155:b=92:: GOT0 - LU 
330 ZG7:b= 158: GOTO 450 
o40 “i6:b=162:G0T0 450 


fisbelé7syels GOTO 4:06 
560 a=2é66:0=182:60T0 450 

a70 a=283%:b=168:G0T0 430 

380 ax: 1b=197:G0T0 450 

a90 az40isb= SE: GOTO 450 

d0G as4Gé:b=SS56: GOTO 4370 

ei EHTO 42 


# interpretation # 


# canal à à& C +# 


IF qg=0 THEN 2=57 EL 
580 IF a=129 THEN y= EL 
y=2 

&90 fenia)tl=d(a)sIF f=0 THEN v=0 ELSE v 
100 1F {+1=0 THEN 8=0: RETURN 

710 SOUND s,4,1#t,0,v.6: SOUND s+3,f#2, 1% 
t,0,v,é:a=ati:q=1: ON SQ(1) GOSUE 670:RET 
URN 


=] 
E IF a=2927 THEN 


*# canal E * 


740 


7EÙ IF h=0 THEN 3258 ELSE s=2 
760 IF b=88 THEN y=3 
770 femibiiise(bisiF #=0 THEN v=û ELSE 


780 IF ++leû THEN bzû:RETURN:ELSE SOUND 

Sitl#t, 0 v,bsbeb+i:hei: ON SQ(2); GOSUE 7 

S0s RETURN 

790 

gG0 © DATA notes 

515 

920 ‘ canal à à C 

BEC ‘1 

840 DATA 1ü6,4,95,1,100,1,106,3,0,7 

850 DATA 106,2,95,1,100,1, ur 

860 DATA 156,2,106,1,95,1,84,1,60,1,75,i 

ne ER 

670 DATA 84,%,190,1,313,1,215,1,284,1,27 

7,1,256,1,0,0 

BE ‘ à 

896 DATA G,1,1247,1,142,1,159,1,127,1,106 
2,991 

900 DATA 106,1,80,1,6 

F1, 1,E0, I 

io DATA 119,1,100,1, 

Lite, i,1is,1 

Jeu DAT 147,4,142,1,117,1,127,1,14%,1 
10 DATA 9,1,127,1,142,1,159,1,127,1,106 


sy 709 À 


5,1,53,1,53,1,63, 1, 


95,1,119,1,80,1,95, 


540 DATA 106,1,80,1,65,1,53,1,53,1,63,1, 
7i,1,80,1 

38% DATA 0,1,113,1,95,1,80,1,63,1,71,2,8 
î » 


370 DATA 0,1,127,1,1423,1,199,1,127,1,106 
“29079 1 

980 DATA 166,1,90,1,63,1,53,1,53,1,63,1, 
71,1,80,1 

980 DATA GISI 188, 1,119,1,80 1,95, 1, 
16,1, 119,1 

1000 DATA 127,4,14%,4 

inuiG DATE 0,3,127, 0141991 

220 DATA Ho G,1,139,1 

Qi0 DATA 127,1,975, ,106,1,137,1,0, 1, 169 
51,0,1,169,1,0,0 

li 3 

1050 DATA GG, L BU, I, C0, SU, à 

10éëc 4 

1070 DATA GI BU L, iQ 1, 212, 1,0,1,127,1 


Ü, [nl 


sd 2 
1080 * «5 
1090 DATA 155,4,95,4 
Lio DATA 149,2,1427,2,0,1,14%,1,147, 1,84 
“1 
1110 DATA 127,4, 11é7,1,142,1,167,1,148,1 
1120 DATA 0,1,95,1,0,1,95,1,04,4 
1150 DATA 119,4,119,1,127,1,142,1,169,1 
1140 DATA 159,1,127,1,95,4,80,2 
1150 DATA 84,%,100,2,0,2,112,2 
1180 DATA 147,%,142,1,159,1,169,2,235,2 
1175 DATA 159,4,95,4 
1180 DATA 189,2,127,%,0,1,14%,1,127,1,84 
Î 
Ê 
1190 DATA 127,4,127,1, Per 1,14%,1 
1200 DATA 159,1,95, 1, 190, 5,1,0, 4 
1210 DATA 71,4,71,1,.80,1, a Eure l 
1220 DATA 80,1,127,1,95,1,159 ,1,95,3,80, 
Î 
220 DATA 84,1,127,1,87,1,71,1,80,2,84,% 
0, Ô 
12345 ° à 
1250 DATA 95,1,127,1,159,1,127,1,0,1,14% 
slt 11 or 5,0 
1260 
270 DATA 95,1,127,1,0,1,159,1,159,2,0,2 
0,0 
1280 °° E 
1290 DATA 95,1,60,1,60,1,93,1,89,1,60,1, 
84,1,6û,1 
1200 DATA 80,1,71,1,67,1,80,1,5:3,1,47,1, 
J3,1,62,1 


1710 DATA 60,1,95,1,95,1,60,1,63,1,127,1 
56/41,9753 1 

1320 DATA 71,1,80,1,89,1,93,1,89,1,90,1, 
7l:1,89,1 

1330 DATA 71,1,75,1,71,1,60,2,53,1,60,2 
1240 DATA 80,.1,81,1.80,1,60,7,55,i,60,2, 
U, 0 

1350 ° 9 

1380 DATA 89,1,93,1,89,1,71,1, 
71,1,89,1 
1370 CAT 95 


1H 


,.4,106,1,159,1,100,1,139,1,0 


5 .1,95,1,89,1,71,1,159,1,80, 1 

89,1,106,1 

1400 DATA 119,4,0,2,159,1,142,1,0,0 

1410 ‘ 11 

1420 DATA 127,2,142,1,179,1,179,1,127,1, 

14%,1,159,1 

1430 DATA 159, 

7,1,0,2 

1449 DATA 142,1,95,1,0,2,239,1,14%,1,159 

,1,179,1 

1450 DATA 190,1,159,1,119,1,95,1,319,1,9 

5,1,0,2 

1460 DATA 127,1,106,1,106,1,119,1,127.1, 

106,1,71,1,80,1 

1470 DATA 80,4,0,2,159,7 

1480 DATA 119,1,95,1,95,1,106,1,119,1,95 
71,130 1 

1490 DATA 80,2,80,1,95,1,106,1,119,1,159 
1,147, 1 

1500 DATA 127,2,142,1,1791,179,1,127,1, 

142,1,159, 1 

1510 DATA 159,1, 

1,08 

1520 DATA 142,1,95,1,0,2,239,1,142,1,159 

1,179, 

1520 DATA 190,1,1959,1,119,1,95, 

5,1,199,1,95,1 

1540 DATA 95,1,106,1,106,1,95,1,89,1,80, 

l71,1,108,1 

1550 DATA 239,1,119,1,127,1,119,1,95,1,8 
,1,80,1,95,1 

1580 DATA 89,1,80,1,71,1,89,1,89,1,127,1 


1,127,1,89,1,95.1,106,1,1€ 


127, 1.89, 1,95, É, iüé, 1, 15 


1,319,1,9 


1380 DATA 
1590 ‘ 13 


119,6,159,1,147,1,0,0 


82 


iéoo 
isic 
1620 
1850 
ié4c 
16450 
1860 
187û 
ié80 
379,1 
1890 
1700 
i710 
1720 
1730 
1740 
1750 
1780 
1770 


DATA 119,4,139,2,0,2,0,0 
fin canal À 


canal E 
Î 
DATA 213,4,213,1,221,1,284,1,2127,1 
DATA D 4, 219 Lil OS 1 
DATA 212,8 
DATA 213,2,190,1,213,1,217,1,284,1, 
ne 1,0,0 
DATA 319,4,213,4 
DATA 415,4,159,4 
DATA 2:9,4,0,4 
DATA 319,2,268,1,253,i,21:,4 
DATA 219,4,217,4 
DATA 213,4,:19,4 
DATA 284,4,779,4 
DATA 0,1,213,1,119,1,0,1,284,1,213, 


1,142,1,215,1 


1780 
1790 
igüc 
1810 
:84, 1 
1820 
157,1 
1830 
15%,1 
1840 
( ; (} 
1850 
igëéo 
201,1, 
1870 
1880 
qe 
1890 
1900 
1910 
1920 
1930 
190,1 
1940 
1950 
1960 
1970 
1980 


190,1, 


1990 
2000 
2010 
190,1 
2020 


(43 T, 


B070 
2040 
3,0 

2050 


DATA 319,4,217,4 

DATA 213,4,159,4 

DATA 229,4,0,4 

DATA 1319,2,268,1,255,1,217,1,190,1, 
SEP È 
DATA 257,1,229,1,229,1,217,1,190,1, 
215,2 

DATA 257,1,239,1,225,1.21:,1,190,1, 
ssl, 


DATA 319,4,213,1,119,1,142,1,119,1, 


DATA 
190, 
4 
DATA 


159,1,127,1,213,1,225,1,213,1, 
1,179,1,0,0 


159,4,127,1,0,2,519,2,253,2,0, 


ie) 


DATA 
BATA 
DATA 


159,4,95, 4 
169,2,127,2,253,4 
201,2,190,2,169,2,0,2 
DATA 159,1,127,1,190,1,127,1, 
.253,1,319, 1 

DATA 284,2,:79,2,2338,4 

DATA 279,4,253, 4 

DATA 201,4,228,2,134,2 

DATA 253,4,0,4 
DATA 159,2,379,1 
159,1 

DATA 149,2,127,2,253,4 

DATA 201,2%,190,2,169,2,0,2 

DATA 159,1,127,1,190,1,127,1,201,4, 
.253,1,319, 1 

DATA 284,1,119,1,279,1,119,1,253,2, 
119,1 

DATA 279,4,279,1,159,1,127,2 
DATA 201,1,142,1,100,1,119,1 


sut ls 


.127,1,159,1,169, 1, 


52274 


ë 


D), 


THEN FÉINTHI, 


2340 FOR i=i TO 93 
2530 READ a$:1F i MOD jé=û. 
CHR# (10) 


2540 


IF a$="x" THEN FRINT#HI,CHRS (IS): :G0 


TO 2600 


2570 c=c-i:1F c=0 THEN c=3 
2580 FEN #1,c 
à 379,4,253,2,169,2,0,0 2370 PRINT#1, 4%; 
| | 2600 NEXT 


796 _—— 4 AE 
279,2,255,2,379,2,0,2030 


O FLOT 


304,64: DRAWR 48,0,c 


2100 DATA 0,8 cri 
#110 DATA &,8 | _ 
2120 DATA 0,4,319,1,159,1,239,1,119,1 FOR i=1 TO 15 


2130 DATA 179,4,0,4 2860 cec+iilF ce THEN cz 
5140 DATA i 79. 1, 127 1,119 1,0,5 2670 LOCATE 1%+1i se PEN 4-c: FRINT CHARS (ZE 
2150 DATA 779,8,0,0 B) ; 
2160 ‘ 9 2680 LOCATE 13+1,23:PFEN ciPRINT CHRS(ZTE 
313,8 ÉRT 
239,2,159,1,142,1,253,4,0,0 2670 NEXT 
a 2700 


215,4,189,3,288,2 


2710 


FOR i=3 TO 23 


2,142,1,159,1,190,2,£01,2, 20 crc+li ir c=s4 THEN c=1 
27350 LOCATE 135,1:FEN c:FRINT CHR$& (CSSS; 
2740 LOCATE X9,1:FEN 4-c:FRINT CHARS (259) 
\157,1,319, 1,219,7,319,4 2780 NEXT 
179, ë, 175, ks 159, { 2740 RETURN 
142,1,119,1,159,1,190,1,279,4 2779 
190,4,319, 2,159, 2 2780 DATA #,C,F,C,#,#,p;r,e,s,esnt,e,#, 
319,2,398,5,159,4 4 REFLEX LON ER AG KES #, #4, mL, 
159,1,127,1,213,1,159,1,319,4 s,iqu,e#,#,de,#,#,#,%,S, C0, TT, #,%, 
190, 2,159,2,190,2,0,2 JO, PL, ISN,#,#,4,F,r,0,g9,r,a,mm;ast,i, 
159,1,119,1,0,4,201,7 0, n,#, *,4#4,H,68:4n; Fiis #,B,I,T,T,NE,R 
159,1,219,1,319,2,319,4 2790 
179,6,179.1,159, 1 2806 ‘ changements de couleur 
142,1,119,1,159,1,190,1,229,4 2810 
190,4,319,1,119,1,159,1,119,1 2820 p=p+liiF p=4 THEN p=i 
284,21179,2, 213,4 28:50 CALL &ED1 
2:9,4,239,4 2840 ON p GOTO 2850,28460,2870 
à 212,4,219,4,0,0 2850 INE 1,ci:INE 2,c2:INK 3,03: RETURN 
2860 INE 1,02: INE 2,03: INÉ 3, c1: RETURN 
: \ 190,2,213,1,190,1,239,2,201,2, 2870 INE L,cSsiNE Z',cisINE 3, C2: RETURN 
ÿ,0 2880 
3400 ‘ 17 2890 a1=INT (RND#26) +1:ap=ap+i 
2410 DATA 239,2,338,1,319,1,239,2,0,2,0, 2900 ON ap GOTO 2710,2920, 7920 
ü 2910 INE j1,al:ci=ai: RETURN 
2456 ‘ fin canal E 2920 INE #,al:cï=al: RETURN 


2450 

2440 ° presentation 

2450 

248604 MODE 1: BORDER 0 

2470 ci=iS:c#=19:ci=6 

2480 INE OO: INE 1,c1i2INE Zoé: INE Z,cE 

2490 WINDOW #1,14,28,4,21:FAFER #1,0:FEN 
#1,1:CLS#i 

2500 FRINT#1 

2310 

2320 cz4 

2530 RESTORE 2780 


INE Œ,al:cä=al: ape: RETURN 8 


83 


KENTEL : 


UN PETIT SERVEUR 
BON MARCHE 


Denis BONOMO 


our goûter aux joies de la télématique et démarrer un petit ser- 
veur, il n’est point besoin d'investir beaucoup d'argent : un sim- 
ple Minitel, dont le modem est retournable (Minitel ‘’R’’), et 
KENTEL, le coffret télématique de la société ENTER, feront l'affaire. 


L'idée n'est pas nouvelle puisque d'au- 
tres éditeurs avaient déjà proposé un 
ensemble logiciel + matériel capable de 
transformer l'AMSTRAD et le Minitel en 
serveur. 

Qu'est-ce que KENTEL : un ensemble 
contenant une cassette {transférable sur 
disquette) contenant le logiciel, un petit 
circuit imprimé équipé des cordons 
nécessaires pour assurer les liaisons, 
d'une part au Minitel, d'autre part à la 
prise imprimante de l'AMSTRAD. Ran- 
çon d'un prix de vente assez bas, le mon- 
tage doit être alimenté par une pile (non 
fournie) et il est livré nu, sans boîtier. La 
notice conseille de l'intégrer rapidement 
dans une petite boîte ; ça se comprend ! 
Le détecteur de sonnerie est équipé 
d'une ventouse qui se place sur un des 
flancs de votre poste téléphonique. Paré 
pour la mise en œuvre ? Allons-y ! 

La première opération que nous avons 
effectuée a été de transférer le logiciel 
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sur disquette puis de démarrer le pro- 
gramme, et là, surprise, ça ne marchait 
pas ! La raison de l'échec était simple. 
mais non mentionnée dans la notice : 
même pour accéder au menu du logiciel, 
il faut que la pile soit raccordée au cir- 
cuit imprimé, le + au fil rouge (tiens, le 
nôtre est violet !). 

Premier contact avec l'éditeur de pages 
Vidéotex : pas mal... Une sorte de petit 
moniteur permet de :isualiser, en hexa 
et ASCII, les caractères et codes de 
contrôle : on est dans le mode correcteur 
de page, permettant de supprimer faci- 
lement un attribut ‘‘’double hauteur’’ ou 
de modifier les couleurs choisies. La page 


. Vidéotex peut être visualisée caractère 


par caractère, sur l'écran du Minitel : pra- 
tique pour mettre en évidence une erreur 
d'attribut ! 

De là, on a accès à la saisie de pages. 
Tout ce qui est tapé sur le clavier d'AMS- 
TRAD apparaît à l'écran Minitel ; des tou- 


ches ‘de fonction’ permettent l'accès 
aux caractères spéciaux, graphiques ou 
attributs. Un éditeur de dessin est éga- 
lement prévu. 

La page réalisée sera sauvegardée sur 
disque. A la mise en marche, le serveur 
chargera automatiquement la page 01. 
Grâce à des suites de mots-clés, il est 
possible de gérer des enchaînements de 
pages. 

La seconde partie du logiciel est consti- 
tuée par une boîte à outils télématique, 
véritable extension au Basic de l'AMS- 
TRAD. On accède, grâce à elle, à diffé- 
rentes routines en assembleur auxquel- 
les on peut passer des paramètres où qui 
en retournent. Regrettons que les con- 
cepteurs du logiciel n'aient pas préféré 
l'utilisation de RSX imagées aux CALL... 
Ces routines permettent la réception 
d'une page et le comptage des caractè- 
res reçus, la réception d’un nombre pré- 
cis de caractères, l'émission de codes ou 
de chaînes, etc. Les vitesses d'émission- 
réception peuvent être modifiées. Bref, 
à l’aide d’un programme Basic et de ces 
routines, il est possible de développer 
une application personnalisée réellement 
adaptée à vos besoins. 

Livré avec une notice de 22 pages, qui 
pourrait être presque parfaite si elle était 
complétée sur un ou deux points précis, 
KENTEL permet de partir à la découverte 
de la télématique sans se ruiner : l’en- 
semble coûte en effet moins de 400 F. 
Pour obtenir davantäge de précisions, 
contacter ENTER (en vous recomman- 
dant de la revue CPC) au (1) 
42.26.60.51. 


Disrmieurion ÉLEcROoMQUE Lrormanoue Aourraine 
QUARTZ SYSTEM 


62, cours de l'Yser - 33800 BORDEAUX 


LES NUMEROS DE TELEPHONE QUI VALENT 


DE L’'OR 


56.91.15.81 
56.92.99.09 


Télex : 572421 


VENTE EN GROS SUR 


AMSTRAD EXTENSIONS VARIEES 
ATARI LISTING 
COMMODORE DISQUETTES - K7 
ORIC JOYSTICK 
COMPATIBLES PC MEUBLES INFORMATIQUES 
MONITEURS LOGICIELS PROFESSIONNELS 
IMPRIMANTES-RUBANS PERIPHERIQUES DIVERS 
ET EN PLUS : 


e Un catalogue complet de Logiciels professionnels sur AMSTRAD et compatibles PC. 

e Des remises très compétitives. 

e Un stock permanent à votre disposition. 

e Un service livraison 48 heures sur toute la France. 

e Un service personnalisé de 9 h 30 à 19 h 00. 

e Une équipe jeune et dynamique à votre service pour faciliter la gestion de vos commandes. 


APPELEZ-NOUS ! 


Je désire recevoir un catalogue : LOGICIELS [] S 
MATERIEL [] 


Voici mon adresse :Nom 


Prénom 


ADRESSE nement 
Codehostlsss Ville 
N'TCÉDNONE: sensation 


A renvoyer à D.E.I.A - 62, cours de l'Yser - 33800 BORDEAUX 


CALAMITES 


Pauvre CPC n° 17 ! Il n'était pas placé 
sous le signe de la chance. Les effets 
conjugués d'un défaut imputable à notre 
imprimante, et au traitement de texte uti- 
lisé pour éditer les listings où se trou- 
vaient des caractères de contrôle ainsi 


— Listing CRAZY 3-0 : 

Ligne 400 à complèter par : Changer le 
formatage, Formater la piste, Init don- 
nées Formatage, Changer données for- 
matage, Changer nombres secteurs. 
Ligne 410 à complèter par : Ecrire sect. 
effacé, Passage au dump, Arrêt, Arrêt 
moteur. 

Ligne 2000 à complèter par : 33000, 
37000, 39000. 

Ligne 4000 à compléter par ::::::::::: s 
WINDOW # 4, 78, 78, 3, 24 : CLS#4 


qu'un problème de photogravure ont 
rendu certains listings inexploitables. 
Dans ce cas, 2 solutions : consulter 
notre serveur pour obtenir le rectificatif 
ou écrire pour recevoir la photocopie des 
pages défectueuses. 


— Listing ULTIMATE FIGHT : 

Ligne 260 le début manque. Il faut : 
260 LOCATE 1,1 : PRINT''XVIES : 10 
etc. 

(où X = CONTROL + X) 


— Listing CALCULATRICE : 
Ligne 210 à compléter par : 


L4 
“:LOCATE S0,11:PRINT"#=fin C=C0S 
=SIN":LOCATE 50,12:PRINT"L=LOG T=TAN 


t=arctan":LOCATE 50,13: FRINT"CE=CLEAR 
"“:LOCATE 59,14: FRINT"M-=vide 
em Mrc=affiche mem“ 


+=memoire 


3720 


Rappelons l'existence d'un serveur, 
hébergé par TDC (la Télématique du Cen- 
tre) accessible par le 36.15, code MHZ, 
sur lequel vous pouvez laisser des mes- 
sages, poser des questions, consulter la 
rubrique ‘’CALAMITES"" (lorsqu'il y a eul . 
un problème dans la revue) ou encore, 
consulter le sommaire du prochain 
numéro. N'oubliez pas, non plus, la rubri: 
que des Petites Annonces | 
Les informations déposées sur ce serveu 
seront bientôt encore plus nombreuses. 


UN EDITEUR 
SE PRESENTE 


teur français va travailler dans le domaine des logicels ludi- 


U ne nouvelle société d'édition est née. Sympa le nom ! Cet édi- 


ques, pour la plupart des micros (Thomson, Amstrad, Atari 


ST...). 


Le premier logiciel d'une série qui sera 
certainement longue, se nomme ERE- 
BUS. Ce logiciel est un jeu d'aventure 
graphique fonctionnant sur Thomson, 
Amstrad et Atari ST. Tout fonctionne par 
icônes et il suffit de cliquer l'action à 
effectuer pour qu'elle se réalise immédia- 


tement si cela est possible. L’ennui 
généré par l'emploi de textes est ainsi 
évité. 

La philosophie de ce nouvel éditeur n'est 
pas de sortir 50 ou 100 logiciels, comme 
certains le font au mépris de la qualité 
et de l'originalité de leur production, mais 


EREBUS 


86 


S Trrus 


de créer entre 5 et 10 logiciels de haute 
qualité par an et sur la plupart des machi- 
nes du marché les CPC, les Thomson. les 
ST... 

TITUS écrit les scénarios des jeux qui 
sont ensuite commandés à EH Services 
qui programment en suivant les instruc- 
tions contenues dans le dossier de fabri- 
cation. Cette démarche garantit la fini- 
tion impeccable des produits et des ver- 
sions aussi proche que possible sur tou- 
tes les machines. 

Les principaux éditeurs font de moins en 
moins appel à des auteurs isolés qui ne 
sont pas fiables (qualité, finition ou 
délais). 

TITUS en faisant confiance à EH Serci- 
ces, évite donc les problèmes et le man- 
que de sérieux d’un travail d'auteur. 
En revanche l'achat d'un jeu, comme 
EREBUS, fonctionnant sur trois gammes 
de machine représente un investisse- 
ment beaucoup plus important (de l'or- 
dre de 200 KF) que l'édition d'un jeu 
d'auteur (Royalties ou 20 KF Cash). 
Nous souhaitons avoir fait le bon choix, 
et si des auteurs nous envoient des logi- 
ciels originaux et d'une finition irrépro- 
chable, nous les éditeront certainement ; 
mais de tels oiseaux rares existent-ils 22? 
L'avenir nous le dira sûrement. Contact 
Auteur : Eric CAEN. 


TOUT POUR L’AMSTRAD 


MICRO ORDINATEURS - LOGICIELS - PROGICIELS 


AMSTRADESK 


Bureau pour ordinateur personnel 


Structure rigide en tube acier de  * Belle finition d'ensemble. Struc- 
section rectangulaire. ture acier peinte couleur brun. 


Panneaux de particules plaqués 
e Large espace disponible pour les teck. 
câbles de liaison. e Livré en Kit (grande facilité de 
e Espaces de rangement pour cas- montage). 
settes, disquettes et papier. e Dimensions : 
Hauteur : 889 mm. 
e Equipé de 4 roulettes permettant Longueur : 933 mm. 
un déplacement aisé. Profondeur : 610 mm. Se : 
pour 464, 6128, 8256, MSX © d 


990T.T.C. en Importation Exclusive 
PI 8256 et 8512 poste informatique 


Structure rigide en tube acier de section rectangulaire. 
Large espace disponible pour les câbles de liaison. 
Espace concu pour l'imprimante. 
Equipé de 4 roulettes permettant un déplacement aisé. 
Belle finition d'ensemble. Structure acier peinte couleur gris. 
Dessus bois stratifié gris. 
e Livré en Kit (grande facilité de montage). 
Dimensions : 
Hauteur : 680 mm 


Longueur : 1 000 mm 
Profondeur : 700 mm 990 F : rC 
REVENDEURS, nous consulter 
SP 1000 A  29%F;:::: 
DE PORT 
e Vitesse d'impression 100 C.P.S. bi-directionnel optimisé. 


e Friction et traction. < Guide feuille. Introduction auto- 
matique du papier. e Qualité courrier. 


EXTENSION MEMOIRE 256 Ko - KIT POUR 8256 - 
Franco de port : 390 F TTC 
DISQUETTES 3" - Franco de port : 350 F par 10 


NOM EE SL TA ou marrant le este se a ae HE à Prénom es TE Ras er Ph Ge A re 
ATTESSES. Le Rd en ne De A ee Len RE en te ne NE nt MR Rd en ta a Re M RASE yen ee nn 
Milles ss bise tte at bad errant Sue Se tn ee at é Code: "postales Lion faste oi es a RES eh ann nnuene r es 


e AMSTRADESK | ,, au prix de 990 F TTC l'unité, nombre 
e PI 8256 |, au prix de 990 F TTC l'unité, nombre 
s:SP:TO000À:l 5 auprix'de 2990" F TTC; nombre: ananas ae en due are drama alé cran star pe giant nie Lo Tan ne 
e Extension mémoire 256Ko pour 8256 | ,, au prix de 390 F TTC l'unité, nombre 
e Disquette 3” |, au prix de 350 F TTC la boîte de 10, nombre de bofte(s)......................................................... 
Ci-joint, mon règlement par chèque. CPC 18 
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LA COLLECTION 
"STUDIO”’ 
DE COBRA SOFT 


ne série de trois utilitaires, présentés dans des dossiers car- 


tonnés frappés du nom de ‘’Studio 


‘* vient de voir le jour. 


S’adressant aux créateurs de logiciels, MUSIC STUDIO, 3D STU- 
DIO et GRAPHIC STUDIO constituent un ensemble qui risque de deve- 


nir indispensable. 


MUSIC STUDIO 

Un éditeur musical performant, voilà ce 
qui manquait aux créateurs de logiciels 
sur AMSTRAD. Cette lacune est désor- 
mais comblée grâte à MUSIC STUDIO. 
Pour vous convaincre de ses possibilités 
allez chez le revendeur le plus proche, ne 
serait-ce que pour écouter la 
démonstration. 

Avec MUSIC STUDIO, tout est permis. 
Le logiciel est en plusieurs parties : un 
synthétiseur, permettant de créer les dif- 
férents instruments, un éditeur pour tra- 
Vailler directement sur la partition et 
enfin, un compilateur qui traduit l’ensem- 
ble en binaire pour vous permettre de 
l'exploiter ensuite. 

Les différentes fonctions sont gérées par 
des menus déroulants (c'est la mode !) 
et peuvent être commandées à partir du 
joystick ou du clavier. Après avoir défini 
les instruments (même les plus insolites, 
en jouant sur l'enveloppe) vous devrez 
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écrire la partition. À tout instant, vous 
pourrez écouter votre œuvre. L'éditeur 
est bien conçu car on peut se position- 
ner rapidement sur une mesure donnée, 
ou encore dupliquer un groupe de mesu- 
res. Quand on vous aura dit que 16 ins- 
truments différents peuvent être pro- 
grammés, vous aurez compris toute l'im- 
portance de votre rôle de chef d’orches- 
tre-compositeur | k 

La musique sera exécutée sous contrôle 
d'interruption, ce qui ne bloquera pas le 
programme utilisateur (indispensable 
pour un jeu d'action !). Le ralentissement 
qui en découle a été évaluée à 20 % 
environ. Tous les styles musicaux sont 
permis, du classique au plus contempo- 
rain, ainsi que les effets les plus fous 
(l'écho étant un des plus simples). 

La notice, au demeurant fort bien faite, 
pêche sur un point : son mutisme com- 
plet concernant la fonction ‘’compila- 
teur'” et la réutilisation d’un morceau de 


musique composé avec MUSIC STUDIO. 
Dommage car l’ensemble est vraiment 
superbe | À 


3D STUDIO 

Aimeriez-vous les maths si l'on vous 
donnait une bonne raison de les aimer ? 
Oui, peut-être ! Associez les maths au 
dessin et vous obtiendrez 3D STUDIO. 
Rassurez-vous, en fait de maths, c'est 
de géométrie (dans l’espace) qu'il s'agit, 
et vos connaissances en la matière pour- 
ront être succintes ou lointaines, le logi- 
ciel offrant un bonne raison pour les 
réactualiser. 

Côté dessin, vous allez découvrir les sub- 
tiles différences entre perspective cava- 
lière et perspective con ique. Voulez- 
vous marquer les faces cachées d'un 
objet ? Pourquoi pas ! Le logiciel sait faire 
au prix, il est vrai, d'un temps de calcu 
plus long. : 
Pour se familiariser avec ce genre de logi- 
ciel, rien ne vaut quelques manipula- 
tions : divers objets sont mémorisés sur 
la disquette. En en chargeant quelques- 
uns, on sera vite convaincu des possibi- 
lités du logiciel. Rotation sur les 3 axes, 
translation, projection (vue 3 plans) font 
partie des options disponibles. Les des- 
sins peuvent être sortis sur imprimante, 
de même que les données servant à les 
générer. L'ensemble peut être sauve- 
gardé sur disquette. 

Le fin du fin est la possibilité d'animer un 
objet. Nombre de vues, axe de rotation, 
perspective, vitesse peuvent être choi- 
sis différemment. L'animation peut être 
modifiée pendant son exécution, en sens 
et en vitesse. Si vous prenez soin de la 
sauvegarder sur cassette, vous pourrez 
la réutiliser, par la suite, dans vos pro- 
grammes personnels. La notice donne 
toutes les explications à ce sujet. 

3D STUDIO est, à notre avis, une excel- 
lente initiative qui met à la portée de tous 
les bases du dessin et de l'animation 3D. 


GRAPHIC STUDIO 

Sur une même disquette, COBRA Soft 
propose 3 utilitaires d'aide à la création 
graphique : un créateur de sprite, sa 
suite logique c'est-à-dire l'animateur et 
un utilitaire de tracés permettant de des- 
siner, entre autres, cercles et hexagones. 
Tous ces logiciels sont basés sur les 
RSX, ce qui permet de réutiliser les gra- 
phismes créés avec au sein de vos pro- 
pres réalisations. 128 sprites de tailles 
différentes pourront être stockés et ani- 
més. Le nombre important d'instructions 
RSX facilite grandement l'utilisation des 
sprites au sein d’un programme Basic. 
Les routines correspondantes restent, 
bien entendu, accessibles à partir d’un 
programme écrit en langage machine. 
Ces sprites auront été créés auparavant 
au moyen du ‘’Sprite designer’” (malheu- 
reusement absent de notre disquette 
échantillon). Quant au ‘’DRAW UTI- 
LITY”", il permet de dessiner des cercles 
(en entier ou seulement leurs rayons), 
d'incliner des tracés, modifier des fac- 
teurs d’échelles, etc. Tout cela à base de 
RSX garantissant l'utilisation dans un 
programme Basic. Bien pratique ! 


MICRO- C 


3, bd de Beaumont 
35000 RENNES 
Tél. 99.31.76.41 


EDUCATIFS sur CPC 


DQ K7 

@ ÉQUATIONS (3°, 2°) 200 170F 

© GÉOMÈTRIE PLANE (3° àterm.) 200" 

@ ESPACE ET SOLIDES (2° àterm.) 200" AT Te 

@ MATHS - SECOND CYCLE 250" 200F 

e MATHS- 54 (5° à 4°) 200" EXPLOITEZ 
@ MATHS - 6 (6°) 200 170F VOTRE 

e MATHS -5 (5°) 170F AMSTRAD 
e MATHS -4 (4°) 170F 


UTILITAIRES (sur DQ) 


103 F ro 


Jeux - Gestion 
Education - Domestique 
Impression de documents 


© CHERRY PAINT, PROMO 280 160" Un best-seller 

®RAMDISK (CPC 6128 Bon de Commande 
et 464 avec DKtronics) 190" à renvoyer à STAMP DIFFUSION. 

e PCW PAINT (D.A.O. sur PCW) 350" Exploitez votre Amstrad. 103 F - Port gratuit. 


JOINDRE CHÈQUE A LA COMMANDE 
+ 3 TIMBRES À 2,20 F 


LA RAGE D'7IMPRIMER 


REVENDEURS BIENVENES 


EPSON AMSTRAD et IBM sont des marques deposees 


Nom Prénom 


Adresse 
Ci-joint chéque de 103 F. 


INPÉIHANTE KN-P 1600 
fnpnimante matricielle 0 100 ps de quitite 
couvden. fnpnession bi-dinectionnelle a 9 aiguilles 
elle compente une alimentation papien continu ou en 
deuilles commutable une intendace centnonics 7/8 
bits et une compatibilite EPSON RX 80x 

La Panasonic KX-P 1080 eat equipe d'une cawette 
nuban avec nénenvoin de nenctivation incenpene 
d'une dunée de vie de 3 Millions de cannctenes.Un 
nelecteun  Anontal  penmet Les donct ions 
graphique, brouillon et espacement pnopontionnel 

LA KX-P 1080 EST COMPATIBLE AMSTRAD CPC/PCR& 
MODEL KX-P 1091 COMPATIBLE AMSTRAD PC 15104/1B"8 


3190 F TTC 


COMPOSITION SUR AMSTRAD + KX-P 1080 


JVELEG 62,Rue du 61 de Gaulle 94430 CHENNEVIERES Tel : (16-1)45.76.73.13 


VISION MAGAZINEC 
Mensuel 15 Francs 

Traite de cinéma, vidéo, télévision, canal plus. 
Abonnement un an : 155 Francs 

Un numéro en exemplaire : 15 Francs franco 
(Chèque au nom de la S.A.R.L. VISION) 


ASTROLOGIE PRATIQUE 
Mensuel (Sortie du premier numéro le 15/11/86) 
Traite d'Astrologie pratique. Permet de concevoir son 
propre thème par l'école conventionnelle. Au sommaire 
du N° 1, Francoise HARDY. 

Abonnement : 145 Francs 

Un numéro en exemplaire 15 Francs Franco 


(Chèque au nom des Éditions TESLA) 
A L'ECOUTE DES RADIOTELETYPSO 
Jean-Louis FIS 
La troisième édition a été entièrement remaniée avec 
les nouvelles fréquences. 
Prix de Vente Public T.T.C. : 115 Francs + Port 
Prix T.T.C. souscription : 69 Francs Franco 
(Chèque au nom de SORACOM) 


LA PRATIQUE DES IMPRIMANTES ( 


Michel ARCHAMBAULT 

Il récidive pour son 4° ouvrage aux Éditions SORACOM 
L'auteur présente un livre consacré aux imprimantes. 
Prix de vente public : 95 Francs + Port 


Prix de souscription : 57 Francs Franco 
(Chèque au nom de SORACOM) 


COMPATIBLE MAGAZINE 

Sortie du premier numéro fin décembre 86. 

Fidèle à sa politique de qualité, notre société lance une 
nouvelle revue traitant de l'ensemble des compatibles PC. 
Avoir un compatible quelque soit sa marque, permet 
d'utiliser tout ce qui touche au PC. Compatible Magazine 
est un mensuel de vulgarisation. . 

Prix du numéro : 20 Francs Sortie le 15-2-87 
Abonnement : 200 Francs 
OFFRE SPÉCIALE DE LANCEMENT : 150 Francs Jusqu'au 31-1- 87 
(Chèque au nom de SORACOM) 


[] Cochez la case correspondante 
1 chèque par ouvrage commandé à retourner aux Editions SORACOM, La Haie de Pan, 35170 BRUZ. 
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NOM: 


CODE POSTAL Li 

ORDINATEUR — FORMAT-DISQUE: 

£__3 DEMANDE DE DOCUMENTATION: 15; 99F timbres & 25.99F Cheque 
C__1 COPIE DISQUE D-du-M-CP/M: 25,99F % votre disquette 3; 
C__1 COPIE DISQUE D-du-M-MDOS: 59,99F & votre disquette 5" 


No's CP/M:  ÿgi G2 35 64 95 96 97 98 99 19 11 12 13 14 15 16 
17 18 19 29 21 22 73 24 25 2 No°s MSDOS: 


"Le Fetit Reseau” "The Little Network" 2599 membres! 


Claude LE MOULLEC 
DER EE EE 


A travers les 36 tableaux de ce 
superbe jeu d'arcade, qui mettront 


vos nerfs à rude épreuve, guidez 
votre balle pour actionner les sonnet- 
tes. A vous de faire la police aux car- 
refours au bôn moment et... dans le 
bon sens en manœuvrant votre joy- 


stick. Grand frisson garanti dans cet 


horrible casse-tête chinois. 
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REM CONFUCIUS 

D REM 
REM Claude LE MOULLEC 
REM 
REM redefinition 
REM ssssssssssssssssessssssestsss: 
ON BREAF GOSUB 5880 


SYMBOL AFTER 33 


G 


SYMEOL 48,254, 130,186, 186, 186, 130, 254 


,9 
100 SYMBOL 
4,0 

110 SYMEOL 
4,0 

120 SYMEOL 
4,0 

1:0 SYMEOL 
4,0 

140 SYMEOL 
4,0 

150 SYMEOL 
4,0 

160 SYMEOL 
4,0 

170 SYMBOL 
4,0 
180 
4,0 
190 SYMEOL 
200 SYMEDUL 
210 SYMBOL 
220 SYMBOL 
2:20 SYMBOL 
240 SYMBOL 
250 SYMBOL 
260 SYMEOL 
270 SYMEOL 
280 SYMBOL 
290 SYMEOL 
300 SYMEOL 
310 SYMEOL 
320 SYMBOL 
330 SYMEOL 
340 SYMBOL 
350 SYMBOL 
360 SYMEOL 
370 SYMBOL 
380 SYMEQOL 
390 SYMEOL 
400 SYMBEOL 
410 SYMEOL 
23,259 

420 SYMBOL 
40,224 

430 SYMBOL 
9 

440 SYMBOL 
7 

450 SYMBOL 
38,0 

460 SYMBOL 
470 SYMEOL 
480 SYMBOL 


SYMBOL 


250, 250, 250,250, 250, 25 


49,254, 
50,254,130,250, 130,190, 130,25 
51,254,130,250, 120,290, 130,25 
52,254,186,186,130,250,250,25 
53,254,130,190, 120,290, 130,25 
54,254,130,190,120,186, 120,25 
55,254, 130, 250, 250, 250, 250, 25 
56,254, 120, 186,170, 1846, 130,25 
57,254,1230,186, 120,250, 130,25 


115,0,56,64,56,4,120,0,0 
99,0,60,64,64,64,60,0,0 
104,0,68,68,124,68,68,0,0 
1905,0,56,16,16,16,56,0,0 
198,0,64,64,64,64,124,0,0 
101,0,124,64,124,64,124,0,0 
118,0,66,68,68,46,16,0,0 
116,0,124,16,16,16,16,0,0 
109,0,40,84,84,84,84,0,0 
111,0,124,68,68,68,124,0,0 
97,0,124,68,124,6B,68,0,0 
201,0,0,0,0,3,6,12,28 
202,0,0,0,0,127,127,255,2S3 
203,0,0,0,0,192,224,240,248 
204,0,0,0,13,27,0,0,0 
205,0,0,0,255,253,0,0,0 
206,0,0,0,240,248,0,0,0 
207,0,0,0,24,0,0,0,0 
208,60,60,60,0,0,0,0,0 
209,0,0,0,0,0,55,0,0 
219,0,0,0,0,0,255,0,0 
211,0,0,0,0,0,252,0,0 
192,224,240,248,252,222,143,2 


193,255, 223, 143,222, 252, 248, 2 
194,7,15,231,62%,123,241,251,25 
195,255,251,241,123,63,31,15, 
216, 228, 228, 238, 238, 228, 238,2 
217,295,0,0,0,0,0,0, 129 


218,129,0,0,0,0,0,0,295 
219,129,129,129,129,129,129,i 


29,129:ha$=CHR$ (219) 


490 SYMEOL 
HR$ (220) 
300 SYMBOL 


220,255,0,0,0,0,0,0, 255: do$=C 


221,0,60,110,94,94,126,60,0:b 


a$=CHRS (221) 


510 SYMEOL 222,252,2,1,1,1,1,1.129 
520 SYMEOL 223,2955,129,129,129,129,129,1 
29,129 

530 SYMEOL 224,129,129,129,129,129,129,1 
29,255 

540 SYMEOL 225,255,1,1,1,1,1,1,295 

550 SYMEOL 226,255,128,128,128,128,128, 1 


28,255 


S60 SYMEOL 227,62,64,128,128,1278,178,128 
129 

570 SYMBOL 228,0, 60, 66,90, 90,66, 60,0:b24 

=CHR$ (228) 

580 SYMBOL 229,255,192,128,12768,124,178,1 

45,194 

Soû SYMEOL 220,295.24,0,0,174, 068,66, &i 

&00 SYMBDL 231,255,3,1, 1,249, 137,137, 159 

610 SYMEOL 232,194,120,130, 130,128, 128, 1 


ACTE 
92,233 


620 SYMEOL 233:,68,68,68,124,0,0,24,2955 
630 SYMBOL 234,139,137,137,249,1,1,3,295 
640 SYMBOL 235,129,128,128,1278,178,1278,6 
4,63 

850 SYMEOL 
660 SYMEOL 


236,129,1,1,1,1,1,2,252 
237,129,0,0,0,0,0,0,129 


670 bel 1$=CHRS (201) +CHRS (202) +CHRS (203) 
680 bel2$=CHR$ (204)+CHRE (205) +CHR$ (206) 
699 belï$=CHR$ (I 
706 bel4$=CHR$ (3 


)+CHRS# (207) +CHRS (32) 
2) +CHR$ (208) +CHR$ (72) 


sarl JAGOT et LEON 


17, rue des Alliés, 42100 Saint-Etienne 
Tél. 77.33.13.82 


MULTISERVI 


Boîtier électronique avec logiciel intégré réalisant 5 applications. 


1 ALARME. 

2 SIMULATEUR DE PRESENCE. 
3 PROGRAMMATEUR HORAIRE. 
4 ANIMATION LUMINEUSE. 

à REVEIL 


paix usic : O0 F 


710 beiSi=CHR$ (LOS: +CHRS(Z10) +CHRS IT 11) 
720 moui$=CHRE (194) +CHRE (147) +CHRS (192) 
720 mour$=CHRE (147) +CHRS (147) +CHRS (147) 
740 mou3$=CHRS (195) +CHR$ (147) +CHRS$ (192) 
750 ef1$=CHR$# (229) +CHR$ (230) +CHRS$ (ZT) 
769 ef£$=CHR$ (272) +CHR$ (2277) +CHR$ (274; 
770 ENV 1,19.-1,1:ENT 3,230,3,S:ENV 4,15, 
—1,3:ENT 4,15,-1.3 

780 NrB=CHRE (22) +CHRE (0) : EdE=CHRS 9) :kg$ 
=CHRS (8) 

790 tr$=CHRS# (ZT) +CHR$ (1) :rec=0: 6010 2540 


OO0Û REM tssssssssssenseensegestanteces 
810 REM 

820 REM variables de base 

8Iû REï 

ONG REM ste si sos esTSts Ternes es 


655 DIM at40,23%):x=20:y=I:sens=d:ca=i:p= 
1: temps=12:balle=4:sc=û:ta=i 

860 MOLE 1:INF O,O:INE 1,26:INE 2,195: 1INE 
3,6:BORDER 1:FAPER O:CLS 


870 REM ssssssssssssssssseneneenenes: 
880 REM 

890 REM tableau des scores 

900 REM 

910 REM sssssssssssssssseesessesessess 


920 FEN 2:LOCATE 4,23:FRINT'"'sSc 

lev ta":LOCATE 4,24:FRINT" 
hi time" 
30 PEN 1:LOCATE 31,23:FRINT tré$:"o ) 


DIGITALISEUR 
D'IMAGES ARA 


Le premier digitaliseur français avec logiciel de trai- 
tement d'images et connection SECAM. 

Livré avec un cordon de liaison Péritel. 

Fonctions : 1 - Digitalisation en continu au coup par 
coup. 2 - Dessin. 3 - Zoom. 4 - Senetrage. 5 - Chan- 
gement de couleur. 6 - Tramage et contraste. 7 - Su- 
perposition et insertion d'images. 

Prix : 990 F TTC 
Ecrit en Assembleur, utilisable sur tous les CPC à 
partir d’un téléviseur, d’un magnétoscope ou d’une 
caméra vidéo. 


Pour CPC 464 {avec extension 64 K JAGOT et LEON) ou CPC 6128 
664 


“:GOSUE 3350:GO0OSUB 3:90 

940 LOCÂTE 31,23:FRINT tr$s;niveau:LOCATE 
36,23:FRINT ta 

950 FEN 3:LOCATE 32,24:FRINT CHR$(216)+C 
HRS$ (216) :FEN t:LOCATE 34,24: PRINT CHR$& (2 
16)+CHR$&(216) +CHRE (216) +CHR$ (216) 

G60 FLOT 44,12,1:DRAW 44,52: DRAW 196,52: 
DRAW 196,12:DRAW 44,12 

970 FLOT 428,12:DRAW 428,52: DRAW 596,52: 
DRAW 596,12:DRAW 428,12. 

980 FOR h=1i£ TO SZ:FLOT 208,h:DRA4 416,h 
:NEXT h:FEN O:LOCATE 16,23:FRINT tré: "CO 
NFUCIUS" 

990 PEN 3:LOCATE 18,24:FRINT bat+CHR& (Z 
)+ba$+CHR$ (32) +bat 

lOOÛD REM sisassesssssnssssssssenssissss 
1010 RENM 
1020 REM 
1930 Pen 


1050 WINDOW #5 1,40: 1, 21ehat=CHR# (219) 10 
o$=CHR$ (220) : ON niveau GOTO 1060,1110,11 
60,1210,1260,1310,1360,1410, 1460 

1960 CLS #5:0N ta GOTO 1070,1080,1090,11 
O0 

1070 RESTORE 4510:GOSUR 2430:x=8:y=1i3:se 
ns=i:tt=60:ba=0:RESTORE 4610:G0OTQ 3020 
1080 RESTORE 4510:GOSUR 2420:x=8:y=13:5se 
ns=iitt=20:x1=8:yi=18:ba=i:senis=i:PEN 2 
:LOCATE X1,Y1:FRINT tr$:;R2$:RESTORE 4610 
:GOTO 3020 

1090 RESTORE 4510:G0SUB 2430:x=8:y=15:5se 
ns=i:tt=80:ba=0:RESTORE 4620:GO0T0 3020 
1100 RESTORE 4510:GOSUE 2430: x=8:y=13:se 
ns=iitt=10:x1=8:y1=18:ba=l:senis=1:PEN 2 
:LOCATE X1,Y1:FRINT tr$;H2$:RESTORE 4620 
:GOTO 5020 

1110 CLS #5:0N ta GOTO 1120,1130,1140,11 
50 

1120 RESTORE 4640:60SUB 2450: x=20: y=Bise 
ns=i:tt=80:ba=0:RESTORE 47230:GOT0 3020 
1130 RESTORE 46460:G0OSUB 2436:x=32:y=B:se 
ns=4:tt=50:x1=16:yi=5:ba=i:senis=3:FEN 2 
:LOCATE X1,Y1:FRINT trs; B2$:RESTORE 47:20 
:GOTO 3020 

1140 RESTORE 4640:GO0SUR 2430: x=20:y=8:se 
ns=ii:tt=90:ba=0:RESTORE 4760: GOTO0 3026 
1150 RESTORE 4646:GOSUER 2470: x=1:2:y=8:5e 
ns=ditt=10:x1=16:yi=5:ba=l:senis=3:PEN 2 
:LOCATE X1,Y1:FRINT trés; B2$:RESTORE 4760 
:GOTO 23620 

1160 CLS #5:0N ta GOTG 1176,1189,11950,12 
00 

1i7ü RESTORE 4800:GO0OSUE 2430: x=20:iv=iise 
ns=2:tt=60:ba=0:RESTORE 49:10: G0TO 23620 
1180 RESTORE 4800:GOSUB 2450: x=i0:v=5:5e 
ns=ïitt=10:n1i=236:y1=10:ba=i:senis=4:FEN 
2:LOCATE XI,Y1L:FRINT trgs; B£S$:RESTORE 492 


94 


O:GOTO 3020 
1190 RESTORE 4800:GOSUER 2420: x=20:y=1:ce 
ns=3:tt=80:ba=0:RESTORE 4960: G0T0 3020 
1200 RESTORE 4800:G0SÛUB 242:6:x=20:y=5ise 
ns=23:tt=30:x1=36:y1=10:ba=i:senis=4:PEN 
2:LOCATE X1,Y1:FRINT træ;BZ#:RESTORE 496 
O:GOTO 23020 
1210 CLS.R#S:ON ta GOTO 12%0,1230,1240,17 
30 
1220 RESTORE 5000:GOSUE 2430: :=30: y=9ice 
ns=i:tt=40:ba=0:RESTORE 5130: GOTO 3020 
230 RESTORE 5000:GOSUR 2410: x=130:y=9:5se 
ns=jitt=S:x1=23:y{1=9:ba=i:senis=2:PEN 2: 
LOCATE X1,YI1:FRINT tr; R2G:RESTORE 3120: 
GOTO 3020 
1240 RESTORE 5G00:GOSUE 2430: x=170:y=9:5e 
ns=iitt=40:ba=0:RESTORE 5140:G0T0 :620 
1250 RESTORE 5000:GOSUB 2430: x=30:y=91i5se 
ns=litt=S:x1=23:y1=9:ba=i:senis=2:FEN 2: 
LOCATE X1,Y1:PRINT tr$:E2%$:RESTORE 5140: 
GOTO 3020 
1260 CLS #S:0ON ta GOTO 1270,1280,1290,13 
O0 
1270 RESTORE 5160:GOSUB 2430: x=10:y=2l:s 
ens=4:tt=40:ba=0:RESTORE 5300:G0T0 3020 
1260 RESTORE 5160:G0SUB 2430: x=10:y=21:5" 
ens=4:tt=5:x1=14:y1=18:ba=i: senis=3:FEN 
2:LOCATE X1,Y1:PRINT tr$;B2$%:RESTORE 5350 
0:GOTO 3020 
1290 RESTORE 5160:GOSUB 2430: x=10:y=21:s 
ens=4:tt=40:ba=0:RESTORE 5310:G0T0 3020 


1300 RESTORE 5160:GOSUER 2430: x=10:y=2Î1:5s 
ens=4:tt=5:x1=14:y1=18:ba=i:senis=2:FEN 
2:LOCATE X1,Y1:FRINT tr: E2%:RESTORE 53i 
O:GOTO 2020 
1:10 CLS #5:0N ta GOTO 1320,13:0,1340,1Z 
90 
1320 RESTORE 53:0:GOSUR 2430: x=2:y=12:se 
= 1:tt=40:ba=0:RESTORE 5420: GOT0 3920 
30 RESTORE 5330:GOSUB 2430: x=5:y=12ise 
 . tt=S:x1=20:yi=13:ba=i:senis=4:FEN 2 
:LOCATE X1,Y1:FRINT tré; B2$:RESTORE 5420 
:GOTO 3020 
1:40 RESTORE 5330: G0SUF 2430: x=3:y=12:5e 
ns=i:tt=40:ba=0:RESTORE 5430:G0T0 3020 
350 RESTORE S:30:GOSUB 24350: x=13:y=12ise 
ns=is:tt=5:x1=20:y1=13:ba=i:senis=4: PEN 2 
:LOCATE X1,YI1:FRINT tré; BES$:RESTORE 3470 
:GOTO 3020 
1:60 CLS #5:0N ta GOTO 1:70,1380,1:90,1i4 
00 
1:79 RESTORE 5450:GOSUE 2430: x=15:y=1:se 
ns=z:tt=406:ba=0:RESTORE 53580: G0T0 3020 
1:80 RESTORE 5450: GOSUE 24TG:x=13S:y=lise 
ns=2:tt=5:x1=20:y1=1S:ba=i:senis=S:FEN 2 
LOCATE X1,Y1:FRINT tr$s E2$:RESTORE 3350 
:GOTO0 3620 


MICRO .CASSURE 
vs ASSURE 


Votre micro est en panne ? Vous êtes 

hors garantie ? VHS, le spécialiste du Service 
Après-Vente Amstrad, vous garantit pièces 
et main-d'œuvre pendant un an renouvelable. 
Incroyable non ? 


Exemple de tarif de prolongation de garantie AMSTRAD. 


MICRO INFORMATIQUE MICRO INFORMATIQUE CHAÎNES TRADITIONNELLES 

CPC 464 Monochrome 195,00 | PCW 8256 TS 86 TS 87 

CPC 464 Couleur 220,00 |«Les 3 éléments » 490,00 |TS 51 TS 55 

CPC 664 Monochrome PCW 8512 

CPC 664 Couleur ou : 
PCW 8256 avec FD2 590,00 | CHAINES LASER 

CPC 6128 Monochrome DMP 2000 185,00 | CD 1000 195,00 

CPC 6128 Couleur DDI-1 185,00 | CD 2000 195,00 
FD-1 145,00 


Au fait pour la Hifi et la vidéo, VHS assure 
aussi le SAV. 


VHS. 13,15, rue Vaucouleurs 75011 Paris 
Tél. : 43.38.97.31 


Je désire souscrire un contrat de garantie pour mon matériel: Cadre à remplir 
Date d'achat: 


NOM PRENOM Marque : AMSTRAD DO 
ADRESSE SCHNEIDER 0 

Autre (à préciser) 
Code postal _____.  ________ TÉL.: 


O Je joins mon règlement de FF Modèles Nc de série 
O Je préfère régler à réception du contrat. No 


[1 Je désire recevoir une documentation complète sur vos services. 


_ 


2. No 
4 . 
da 


1390 RESTORE 5450:GOSUE 2470: 
ns=2: tt=40:ba=0:RESTORE 5590: GOTO 3020 


=iS:y=1:se 


140 RESTORE S4Su:GOSUR 24Z%0: x=:S:y=itce 
ne=Zrtt=5:x1=20:y1=15:ba=i:senis=3:FEN 2 
:LOCATE X1,Y1:FRINT tré; B2#:RESTORE 5570 
GOT 2070 
1410 CLS #5:O0N ta GOTO 1429,1470,1440,14 
90 
1420 RESTORE S610:GOSUE 2430: x=6:y=10:5e 
s=i:tt=40:ba=0:RESTORE 574G:G0T0 3020 
1450 RESTORE 5610:GOSUR 24306:x=6:y=1lû:se 
ns=litt=5S:x1=23:y1=10:ba=l:senis=i:FEN € 
:LOCATE X1,Y1:FRINT trés EB2#:RESTORE 5740 
:GOTO 2020 
14406 RESTORE 5810:GO0SUER 2470: x=6:y=i0:se 
ns=i:tt=40:ba=0:RESTORE 5750:G0T0 ZG20 
1450 RESTORE S610:GOSUE 2470:x=6:y=i0ise 
ns=iitt=5:x1=23:y1=10:ba=i:senis=i:FEN 2 
:LOCATE X1,Y1:FRINT trés R£S$:RESTORE 5750 
:G0TO 3020 
1460 CLS #5:0N ta GOTO 1475,1490,1500,15 
10 
1470 CLS #5:FEN 1:LOCATE 17,9:FRINT "FAR 
COURS": LOCATE 16,11:PEN Z:FRINT "INVISIE 
LE"sha$=CHRS (22) : do$=CHRS& (32) : SOUND 5,20 
51900,15,0,3:FO0OR t=i TO SOOO0:NEXT:CLS #5 
1480 RESTORE 5770:GO0SUE 2430: x=6:y=18ise 
ns=4:tt=40:ba=0:RESTORE S5810:G0T0 2020 
1490 RESTORE 5770:G0OSUB 2450: x=6:y=iB:se 
ns=4:tt=5:x1=25:y1=i18:ba=i:senis=4:FEN 2 
:LOCATE X1,YI1:PRINT tr$;EB2$:RESTORE 5810 
:GOTO0 2020 
1500 RESTORE 5770:GO0SUR 2420: x=6:y=1i8:5e 
ns=4:tt=40:ba=0:RESTORE 5820: G0OT0 3020 
1510 RESTORE 5770:GO0SUB 2430:x=6:y=iB:se 
ns=4:tt=5:x1=35:y1=18:ba=i:senis=4:FEN 2 
:LOCATE X1,Y1:FRINT tré; B2$:RESTORE 5820 
:GOTO 2020 
1520 REM ssssssssssssssssssssssssssss: 
1520 REM 
1540 REM 
1550 REM 
1560 REM sssssssssssssssss: 
1570 IF fin=i THEN toS=REMREN (1) fins0: G 
OTO 4240 
1580 FOR t=1 TO £t:NEXT t 
1590 DI:IF ba=1i THEN GOSUR I1830:IF x1=x 
AND yi=y THEN fin=1:GO0OT0 1570 
1609 FEN Z:LOCATE x,y:FRINT tr#$:;:ba% 
1610 ON sens GOTO 1620,1660,1700,174û 
1629 IF atx,y-1)2:0 THEN FEN O:LOCATE x, 
ViFRINT ba$:y=y-1: PEN 3:LOCATE x, y: PRINT 
ba$:507T0 2070 
1830 IF atx+i,y)is 
VYIERINT ba$:x=x+1:FEN Z:LOCATE K,y: 
ba$:sens=::G0T0 2070 
1540 IF aix-1,y)2:0 THEN FEN G:LOCATE x, 
VIPRINT baÿ:u=x-1:PEN S:LOCATE x, 3 PRINT 


mouvement de la balle 


Q THEN FEN O:LOCATE %4 
FRINT 
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ba$:sens=4:G0TO 2070 

1850 SOUND 4,200,45,15,4,4:sens=2:6G0T0 2 

070 

1660 IF aix,y+1):2>0 THEN FEN 0:LOCATE x, 

Y:FRINT ba$:y=y+1:PEN 3:LOCATE x,y:PRINT 
bat:GOTO 2070 
1670 IF aix+l1,y)< 

Y:FRINT ba$:4=x+1:FEN 3:LOCATE 
ba$:sens=1:G60T0 2070 

1680 IF alx-1,y):>0 THEN FEN O:LOCATE x, 

Y:PRINT bag:4x=x-1:PEN 3:LOCATE x, y: FRINT 
ba$:sens=4:6G0T0 2070 

1690 SOUND 4,700,45,15,4,4:sens=1:G0T0 € 

070 

1700 IF atx+1,y)<70 THEN FEN O:LOCATE x, 

Y:PRINT ba$:#=x+1:FEN 3:LOCATE x, y: PRINT 
bat:GOTO 2070 

1710 IF a(x,y+1)2:0 THEN FEN O:LOCATE x, 
Y:FRINT ba$:y=y+1:FEN 3:LOCATE x, y: PRINT 
ba$:sens=2:60T0 2070 

1720 IF a(x,y-1)<4>0 THEN PEN O:LOCATE x, 
Y:PRINT bag:y=y-1:PEN 3:LOCATE x,y:PRINT 
ba$:sens=i:G0OTO 2070 

1730 SOUND 4,200,45,15,4,4:sens=4:G0T0 2 
070 

1740 IF a(x-1,y)<4>0 THEN FEN O:LOCATE x 
Y:PRINT ba$:4x=x-1:PEN 3S:LOCATE x,y: PRINT 
ba$:GOTO 2070 

1750 IF a(x,y+1)250 THEN PEN O:LOCATE x, 
ÿY:FRINT bat:y=y+1:PEN 3:LOCATE x, y: PRINT 
bag:sens=£:607T0 2070 

1760 IF atx,y-1)<230 THEN FEN O:LOCATE x, 

YEPRINT ba$:y=y-1:FEN 3:LOCATE x,y:PRINT 
ba$:sens=1i:G60T0 2070 

1770 SOUND 4,200,45,15,4,4:sens=3:GO0T0 2 

070 

1780 REM sssssssssesssnssenssssesssss: 
1790 REM 
1800 REM 
1810 REM 
1820 REM ::: 
1830 IF x=xi 
70 

1840 PEN 2:LOCATE xi,yi:PRINT tr$;b2$ 
1850 ON senis GOTO 1860,1900,1940,1980 
1860 IF alxi,y1i-1);:0 AND axi,yi-1)411 T 
HEN FEN O:LOCATE x1,yYL:FRINT bagp:yi=yi-1 
:FEN Z:LOCATE x1,Y1:FRINT b2$:RETURN 
1870 IF aûx 1+1,y1)3 ‘0 AND atxi+i,yir<1i T 
HEN PEN O:LOCATE x1,yIl:FRINT b2$#:xi=xi+1 
:FEN Z:LOCATE x1,Yy1:FRINT b?$:senis=3:RE 
TURN 

1880 IF aixi-1,y1)>0 AND atxi-1,yi1)<1i T 
HEN FEN O:LOCATE #1,ViL:PRINT b2g$:xi=x1-1 
:FEN Z:LOCATE x1,YI:FRINT b£$:senis=éiRE 
TURN 

1870 senis=2: RETURN 

1900 IF aixl,yi+1)50 AND atxi,yi+ii<1i T 


50 THEN FEN O:LOCATE x, 
x, Y: PRINT 


deplacement balle nr 2 


Véritable langage expert. 
Qui vous pernet d'apprendre! 


TURBOEXPERT BASE est un système expert d'initiation, simple d'emploi, écrit en 
Turbo Pascal. 11 permet de travailler en chainage avant et arrière. 
11 comprend un moteur d'inférence, un éditeur de règles et un éditeur de faits. 


AR 50 AR 55 Trois versions sont prévues : 


80 COLONNES 132 COLONNES - une version CPX 2.2, utilisable sur CPC 464 disquette, CPC 664 et 6128, 


permettant de gèrer une quarantaine de règles, 


- une version CPM+ 6128, permettant de gèrer 150 règles. 


; = fe ES À 
ne Inpr itante profess ] anne | | ê - une version CPM+ PCV, permettant également de gèrer 150 règles. 
La version CPM 2.2 est disponible dès ce mois-ci. 
[ul | votre PC [| UÜ TRE F . PRIX des deux premières versions : 249F 
Remises à jours CPM+ 6128 gratuites. Manuel d'initiation aux systèmes experts 
I offert avec le logiciel. 
TURBOEXPERT BASE est un produit coédité par LOISITECH & PETREL 
Ë [| copyrigne 1508 
PRIX :AR 50 = 5000,00 francs HT soit 5930,00 tte 
[1 AR 55 = 6000,00 francs HT soit 7116,00 tte 
© 
249 00 francs . 
se 
ss > 


Enfin une interface 
vralnent télénatique | 
Pour votre PCH..., 


1200,00 francs HI 


De puissantes fonctions vous sont offertes: 


— Saisie rapide des touches 
Spéciales SENVOI, REPETITION ect) 

— Envoi de blocs de texte 
préselectionné 

— Reception de blocs de texte 

— Controle des pages du minitel sur 
Le PCW 

— Simplicité des copies d'écran 


La conception de l'interface qui équipe VTLINK et le logiciel qui la 
gère permet ces performances. 


Un manuel d'utilisation clair et 
précis simplifie l'usage de cette 
interface. 


T0 de conande 
+00 ,00 Francs DE 

PA NL D 
Centre connercial "Terminal 93" | vos désires PRENOM... Ti 


envoi contre- 


39106 MONTREUIL-CEDEX 1,2m,j— torse. ADRESSE... 


TEL,(L)48 53 7 76, se] Ci joint un chèque d'aconpte de 30 F.à la 
SERVEUR. (148 59 17 17 nie le solde en contre-renhoursenent# 


HEN FEN O:LOCATE x1, VI: FRINT b£$:vi=y1+1 


:FEN 2:LOCATE “1,YL:FRINT b2$:RETURN 
1910 IF atxi+i,vi):0 AND atxi+i,viisii T 
HEN FEN G:LOCATE x1,yl:FRINT bE$:x1=x1+1 
:FEN 2:LOCATE x1,y1:FRINT b£$:senis=3iRE 
TURN 
1520 IF atxi-1,y1):0 AND atxi-1,v1i:11 T 
HEN FEN O:LOCATE x1,Y1:FRINT b2$:x1=x1-1 
:FEN Z:LOCATE x1,y1:FRINT b£g:s5enies=4iRE 
TURN 
1950 senis=1:RETURN 
1940 IF atxi+1,y1):0 AND atxi+i,yi)sii T 
HEN FEN G:LOCATE x1,Y1:FRINT b£ gs xi=xi+i 
:FEN 2: LOLATE “1,y1: PRINT b2Z4:RETURN 
1950 IF atxi,yi+1):9 AND atxl.yi+i):1i T 
HEW FEN G:LOCATE k1, y1: PRINT b2$:y1=,1+i 
:FEN 23: LOCÂTE k1,VLFRINT b£$:senls=iifE 
TURN 
1980 IF aixi.vi-1:2:0 AND atxi,yi-Llo4il T 
HEN FEN O:LOCATE x1,Y1:FRINT b2$:yi=y1-1 
:FEN Z:LOCATE x1,yl:FRINT be$:senis=iikE 
TURN 
1970 senis=4: RETURN 
1980 IF atxi-1,y1)?0 AND alxi-1,y1)<11 T 
HEN FEN O:LOCATE x1,yi:PRINT b2$:xi1=x1-1 
:FEN Z:LOCATE x1,y1:FRINT b2$:RETURN 
1990 IF alxi,yi+1)>0 AND atxi,yi+i1):i1 T 
HEN FEN 0: LOCATE xki,YL1: PRINT b2#:y1=y1+1 
:FEN 2:LOCATE x1,y1L:FRINT b?$:senis=2iRE 
TURN | 
2000 IF alxi,yi-1)50 AND atxi,yi-1)<11 T 
HEN FEN O0:LOCATE x1,Yy1:FRINT b2$:yi=y1-1 
:FEN Z:LOCATE x1,yI: PRINT b£é:senis=iiRE 
TURN 
2010 senis=3: RETURN 
2020 REM sssssssssesssstssistitsititit 
2030 REM 
2040 REM 
2050 REM 


2060 REM sssssssesesesesessssssssssss: 
2070 EI:IF a(x,y)=10 THEN GOTO 2880 
2060 IF ba=i AND x=x1 AND y=yi THEN fin= 


1:GOT0 1570 

2090 a$=INEEYS:IF a$="" THEN GOTO 2120 
2100 IF a$=kdt THEN GOTD Z13ü | 

2119 IF a$=Ekg$ THEN GOTO 21720 

2120 GOTO 1570 

2120 IF atx,y)=3 THEN GOTO 2126 

2140 DI:ON p GOTO 2150,2160,2170,21E0 
2150 p=2:50T0 2190 

£1é60 p=2:G60TO 2226 

2170 p=4:G0T0 2250 

2180 p=1:60T0 228û 

2190 FEN Z:LOCATE px(ca)+i1,py(cartaipx(c 
a'+l,pyicai)=0: PRINT CHR#i1475) 

Z:00 FEN C:LOCATE pxica)+1,pv(ca)+2tatpx 
{ca)+1,py(ca)+2)=3:FRINT CHRS (147) 

2210 ca=ca+liIF ca=cart+i THEN ca=i:El:G 
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OTD 1éu5c 

2220 FEN Z:LOCATE px(caji+5,py(ca)+i:a(px 
(ca)+2,py(ca)+1}=0:PRINT CHR# (145) 

2210 PEN O:LOCATE px(ca),py(cai+i:a(px(c 

a),py(ca)+i)=3:FRINT CHR#&(145) 

2240 ca=ca+l:lF ca=carf+i THEN ca=1i:El:G 

OTD 1650 

2256 FEN Z:LOCATE px(ca)+i,py(cai+itaipx 
{ca)+i,py(ca)+1)=0:FRINT CHR&(I143); 

2260 FEN O:LOCATE pxica)i+1,py(ca)sa(px(c 
a)+1,py(ca))=Z:FRINT CHR$(145) 

2270 ca=catl:IiF ca=carf+i THEN ca=l:El:G 

OTO 1é60û 

22909 FEN Z:LOCATE px(ca),py(ca)+i:a(px(c 

a) ,py(cai+i)=G:FRINT CHR (1435) 

2250 FEN O:LOCATE px(ca)+2,py(ca)+itia(px 
(ca)+£,py(ca;+1)=3:FRINT CHR$(145) 

2200 ca=ca+i:IF ca=carf+i THEN ca=i:El:6 

OTO 1600 

2:10 GOTO 2190 

2120 IF a(x,y)=Z THEN GOTO 2120 

2330 DI:ON p GOTO 2340,2350,2360,2370 

2340 p=4:G60T0 2220 

2350 p=1i:G0TO 250 

2:60 p=2:G60T0 2280 

2370 p=3:G0OTO 2190 

2580 REM sssssssisssssensesensesessese 

2390 REM 

2400 REM 

2410 REM 

2420 REM Sussssssesenssseesistinensses 

£430 ERASE a :DIM a(40,2% 

2446 READ carf,toud,toug,bb,bh,bd,bs,sd, 

sh,car,tbg,tbd,bob,boh 

2450 FOR h=i TD carf 

2460 READ px(Ch),py(Ch) 

£470 FEN Z:LOCATE px(h) ,py(Ch)i:PRINT moul 

$:LOCATE px€h),py(Ch)+1:FRINT mou2#:LOCAT 

E pxth),py(h)+2:FRINT mous$: 

2480 PEN O:LOCATE px(h)+1,py(h)+1:FRINT 

CHR$ (145)s:a{px(h)+1,py(h)+1)=3 

2490 pi=h:I1F h+;4 THEN p1=pi-4 

2506 ON pi GOTO 2510,2520,2520,2540 

2310 LOCATE px(h)+1,py(h):a(tpx(h)+1,py(h 

))=Z2:FRINT CHRS$ (1425) :LOCATE pxthi+z,py(h 

P+i:atpx(h)+2,py (hi}i+1)=Z3:FRINT CHR$ (147) 

:GOTD 2530 

2520 LOCATE px(th)+%,py(h)+ir:aipx(h)i+2,py 

(hi+1)=2:FRINT CHR$# (147): LOCATE pxthi+i, 

py(hi+i:sipx(hi+i,py{(hi+2}=3:FRINT CHR$#( 

145) : GOTO … 

2550 LOCATE pxihi+i,py(hi+iia(px  : FY 

(hi+2)=2: PRINT CHR# (147) :LOCATE px 1 ,PY 

h)+iiaipx (h),py (hi+1i=zs FRINT ue 

:GOTO 2550 

2540 LOCATE pxth),pyth}i+is:atpx(h),py(hi+ 

1)=Z:FRINT CHR#& (147) :LOCATE pxthi+1,py th 

jiatpxh)i+i,pv(hi)=Ti PRINT CHR$ (147) : GOÛT 


0 2530 
2550 NEXT 
2560 FOR h=1 TO toud:READ d,f 
2570 FEN 1:LOCATE d,f:atd, f)=1: FRINT CHR 
$(222):NEXT h 
2586 FOR h=1 TO toug:READ d,f 
2990 FEN 1:LOCATE d,f:atd,f)=1:FRINT CHR 
$(Z227):NEXT h 
2600 FRINT nr$:1F bb=0 THEN GOTO 2420 EL 
SE FEN 1:FO0R h=i TO bb:READ d,f 
2610 LOCATE d,f:atd,f)=1:FRINT CHR& (224: 
:NEXT h 
2620 IF bh=ûü THEN GOTO 2646 ELSE FEN 1:F 
OR h=i TO bh:READ d,f 
2670 LOCATE d,fiatd,#f)=1:FRINT CHR$ (2EZ) 
:NEXT h 
2645 IF bd=0 THEN GOTO Zé66û ELSE FEN 1:F 
OR h=1 TO bd:READ d,f | 
2650 LOCATE d,f:atd,f)=1:FRINT CHR$ (225) 
:NEXT h 
2460 IF bg=0 THEN GOTO 2680 ELGE FEN 1: F 
OR h=1 TO bg:READ d,f 
2870 LOCATE d,f:atd,f)=1:PRINT CHR& (226) 
:NEXT h 
2680 FEN 1:FOR h=1 TO sd: READ d,f,ha 
2690 FOR g=d TO f:LOCATE g,ha:a(g,ha)=i: 
FRINT dof:NEXT g:NEXT h 
2700 FEN 1:F0R h=1 TO sh:READ d,f,ha 
2710 FOR g=d TO f:LOCATE ha,g:atha,g)=i1: 
PRINT ha$:NEXT g:NEXT h 
2720 IF car=0 THEN GOTO 2740 ELSE FEN 1: 
FOR h=i TO car:READ d,f 
2730 LOCATE d,f:atd,#f)=1:FRINT CHRS (2 37} 
:NEXT 
2746 IF tbg=Ùù THEN GÜTO 2760 ELSE FEN 1: 
FOR h=1i TO tbg:READ d,f 
2750 LOCATE d,f:atd,f)=1:FRINT CHR#& (256) 
:NEXT 
Z760 IF tbd=Ùù THEN GOTO 2780 ELSE FEN 1: 
FOR h=1 TO tbd:READ d,f 
2770 LOCATE d,f:a(td,f)=1:PRINT CHR$ (2355) 
:NEXT 
2780 IF bob=0 THEN GOTO 2800 ELSE FEN Ï: 
FOR h=i TO bob:READ d,f 
2790 LOCATE d,f:atd,f)=1:FRINT CHR# (217) 
:NEXT 
2800 IF boh=0 THEN G0TO 2820 ELSE FEN ji: 
FOR h=1 TO boh:READ d,f 
2819 LOCATE d,f:atd,f)=1:FRINT CHR$(216) 
:NEXT 
2820 RETURN 


DOSOUREM sets resseeesesssneleciesente: 
2B4û REM | 

Z950 RENM sonnerie touches 

2860 RE 

OU REM: sé srssasss sir. 


2560 DI:IF afx,y-1)=11 THEN GOTO 2500 
2650 SOUNC 3,80,30,1S:FEN Z:LOCATE x-i,y 


+i: PRINT pee LOCATE x-1,y+£:FEN 3: 
FRINT mouZ$: PEN 1:LOCATE x-1,y+1:FRINT € 
r$iefi$:LOCATE x-1,v+2: PRINT ef2$iaix, y) 
=lialtx,y+1)=0:G0OTO 2910 

2900 SOUND 5,80,20,15:FEN Z:LOCATE x-1,v 
2: FRINT nr$:mouZ$:LOCATE x-1,y-1:FEN 3: 
FRINT mouZ$:FEN 1:LOCATE x-1,v-2:FRINT t 
rSseti:LOCATE x-1,y-1:FRINT ef2$:a(x, 
=i:aix t3Y71)=0 

2910 beltou=beltou+i:sc=s5c+100:GSOSUR 335 
O:1iF beltou=bel THEN bel tou=0: El: GOTO 32 
50 

2920 IF temps:8 THEN GDTD 296ù 

2930 IF temps:8 AND temps:4 THEN FEN j:L 
OCATE 32+(INT(temps;2:i),24: PRINT CHR (EI 
6) 

2740 IF temps:4 THEN FEN 3:LOCATE Z£+(IN 
Titemps/2)),24:FRINT CHR#(216) 

2950 IF INT(temps/2)=temps/2 THEN tempe= 
temps+2 ELSE temps=temps+i 

2960 FEN 3:LOCATE x%,vV:FRINT ba$:EI:GOTO 
2090 

29709 REM ssssssssssssssesssssssssistss 
2989 REH 
2990 REM 
2000 REM 
3019 REM ssssssssssss 
3020 READ bel,plo:FDR 
f 

2030 FEN O:LOCATE d,f:FRINT nr$;mou2#:L0 
CATE d,f+1:FRINT mouz$ 

2040 FEN 1:LOCATE d,f:FRINT tr$;beli#$:LO 
CATE d,f+1:FRINT belZ$:PEN 3:LOCATE d,f: 
FRINT bel:$:LOCATE d,f+1:FRINT beld4t:FEN 
2:LOCATE d,f+1:PRINT belS5$:atd+1,f)=11: 
atd+1,f+1)=11:NEXT 

3050 FOR h=1 TO plo:READ d,f:atd,f)=10:N 
EXT h 

3060 FEN Z:LOCATE x, y:PRINT bag 

3070 GOSUB 3480:CALL SREBIBS:EVERY 200,1 G 

OSUB 31:0:G0T0 1570 


2080 REM sssssssssnsssenesssiansssense 
3090 REM 

3100 REM temps -i 

3110 REM 

Si20 REM sasssssssesienenenmetensisiress 


2120 Dl:temps=temps-1: IF INT (temps/£i=te 
mps/2 THEN GOTO 3iSt ELSE GOTO :i4û 

3140 FEN CG:LOCATE 3£+((Ctemps-1!/2),74:FR 
INT tré; CHRSGLIS) :EI: RETURN 

3150 FEN O:LOCATE 32+(temps/2),24:FRINT 
trés CHRS (172) 

3160 IF temps=û THEN fin=i:Ei: RETURN 
3170 EI:RETURH 


O0 KREM ses Ssrissessesadeesadésrenss 
72190 REM 
3200 REM gagne 
2210 RE 
0006 


99 


B2E20 KEM sagsssseseeseseasssssssnnesesss 

2270 tps=FREMAIN({):hi=temps:FOR h=i TO h 
1: SOUND 1,0,15,15,1,,15:GOSUB 31:0:sc=sc 
+10: GOSUE 3350: FOR t=i TO 100:NEXT t:NEX 


Th 

5240 IF screc THEN rec=sc:60SUE 3790 
3250 FEN Z:LOCATE 32,24: FRINT CHR# (216) + 
CHR#(Z16):FEN 1:LOCATE 34,24:FRINT CHR$#( 
214) +CHR9 (216) +CHR$ (216) +CHRS (216) : temps 
=iT 

2260 ta=ta+i:IF ta=5 THEN ta=iliniveau=ni 
veau+liiF niveau’9 THEN niveau=i 

3270 LOCATE 32,23:FRINT nr$s;" ":LOCATE 3 
7,23:FRINT 

2260 FEN 1:LOCATE 31,223:FRINT tré;niveau 
: LOCATE ne ta:fin=0 

2290 FEN O:LOCATE x,y:FRINT bag: x=20sy=5 
:GOTO 1550 
3300 REM : 
3310 REM 
3320 REM 
0 REM 


LOCATE 7,23:FRIN 


3350 PEN 1:IF sc=0 THEN 
T onr$; "000000": RETURN 
3360 IF sc<1000 THEN LOCATE 10,23: FRINT 


nr$:" ":LOCATE 9,23:PRINT tr$;sc:RETUR 
N j . 

3370 IF sc*10000 THEN LOCATE 9,23:FRINT 
nr$;" ":LOCATE 8,23:PRINT tr$;sc:RETU 
RN 


ZZ80 IF sc:10000 THEN LOCATE 8,23:FRINT 
nr$;" “:LOCATE 7,23:FRINT tr$;sc:RET 
URN 
3:90 FEN 1:LOCATE 7,24:PRINT nr$; "000000 
“21F rec=0 THEN RETURN 

2400 IF rec<1000 THEN LOCATE 10,24: FRINT 
nr$;" “:LOCATE 9,24:FRINT tr$;rec:RET 
URN 
3410 IF rec<i0000 THEN LOCATE 9,24:FRINT 
nr$;" ":LOCATE 8,24:PRINT tr$;reciRE 
TURN 

3420 IF rec:10000 THEN LOCATE 8,24:FRINT 


nr$;" “:LOCATE 7,24:FRINT tr$;recikR 
ETURN 

3430 REM ssssssssssensnsssssssssisssss 
3440 REM 

32450 REM efface memoire clavier 
3460 REM 

3470 REM sessseessensssesessssssssesess 
3480 WHILE INFEYS::"%: NEND: RETURN 
SATO REM sisi tiesssnirepesesessésne 
ZS0ÛG REM 

2510 REM presentation 

2520 REM 

Sast REM surf Sesss Sri ses ssne 


25406 MOCE 1:WINLOW #1,1,40,12,235:INE 0,0 
INF 1,02:INE Z2,20:INE 3,15:FEN 3: BORDER 


100 


20:FAFER #1,Z2:CLS #i:cle=liniveau=i 
2550 RESTORE 3600 
2560 ORIGIN 24,-24:FÛR f=1 TO 27:READ ar 
r,xa,ya, *b,yb:FOR i=1 TO arr STEF 4:FRIN 
T CHRS (ZT) +CHRS (5) 3; : MOVE xa+i,ya:DRAW xb 
+1,yb,2:PRINT CHRS$ (233 +CHRS$ (2) ; : MOVE xa+ 

1,ya:DRAW xb+i,yb,1:1=1#2:1=1#2:NEXT i1:E 
NV 1,10,1,1:SOUND 1,0,10,7,1,,1 
2570 PRINT CHRS (23) +CHRS (0) ; : FOR g=0 TO 
B STEF Z:MOVE xatarr+g,ya+g:DRAW xb+arr+ 
g,yb,3:NEXT g:NEXT + 
2980 FLOT 0,0,2:LOCATE 35,8:PEN 2:FRINT 
CHR$ (164) :FEN #1,1:TAG:FOR x=644 TO 246 
STEF -10:MOVE x, 280: PRINT "SOFTWARE "3:15 
an 1,%,2,6:NEXT x: TAGOFF 

3590 FOR h=1i TO 6:LOCATE 1,1:FRINT CHR&( 
113:F0R t=i TO ZO0:NEXT t:NEXT h 
2600 DATA 420,0,398,0,300,440,0,376,0,32 
0,440,0,320,60,2320,420,0,300,80,300,500, 
9,320,0,300,420,0,398,80,398,440,0,378,6 
0,278,500,0,398,0,378 
3610 DATA 260,0,:398,0,300,280,0,350,0,270 
0,260,0,:300,20,300,260,0,398,20,398,:B0, 
0,398,20,350,280,0,2350,12,310,292,0,310, 

310, 308,0, 310, 12, 350 
3620 DATA 300,9,350,20,398,320,0,398,20, 
398,:320,0,350,0,300,320,0,300,20,300, 340 
Dies 9,300 
6:0 DATA 180,0,320,0,300,100,0,:398,0,20 

à A do don ion à 398,0,320,120,0 
,320,60,320,100,0,2300,80,300 
3640 EVERY 25,2 GOSUE 3770 
3650 ORIGIN 9,0:a$="CONFUCIUS":x=112:y=3 
80:GOSUB 3690 
2660 LOCATE 1,1:PRINT" 
8 
5670 FEN 2:LOCATE 1,1:FRINT CHR$(212) :LO 
CATE 40,1:PRINT CHR$ (213): LOCATE 1,17:FR 
INT CHR$ (215) :LOCATE 40,17:PRINT CHR$ (21 
4) 
3680 LOCATE 15, 6: FEN 1: PRINT "CONCEIVED 


“2: INE 1, 


_ BY":LOCATE 12,22:PRINT tr$; "EXPLICATIONS 


(O/N) ":GOTO 3870 
3690 a=LEN(a$):a8=a*8 
3700 LOCATE 1,1:FEN 1:PRINT a$;::FEN 1 


3710 tk=x:y2=398 

3720 FOR f=1 TO 8:x2=0:FOR g=1i TO aë 

2730 IF TEST( x2,y2)=1 THEN FLOT x+4,y,2 
:PLOT x+4,y-2:PLOT x,y-2:PLOT x+2,y-5:FL 

OT x+4,y-4:PLOT x+2,y-4:PLOT x,y-4:FLOT 
#—2,yr2,3: PLOT x, y+2: PLOT x4+2,y+2:FLÜÛT x 
+2, y: PFLOT x=2, y:PLOT X,y: "FLÜT x,y.,color 
: FLOT 'x+2, y: 

2740  H=x+b:KE=x2+2 

2750 NEXT giy=y-b: tu=tusyE=yz-5s:x=tn:MEX 
T f 

276û RETURN 


Chaque | jour | ouvrable Isabelle 
répondra à | VOtre cOUrrIer | techni 
que |et|||à ||VOS || demandes 
d'information. 

N'hésitez pas à faire le 36.15 puis 
MHZ et... faites VOtre COIX. 
{Attention n'oubliez pas |d'OUVrir 
votre BAL Si VOUS n'en avez pas). 


MEGAHERTZ + CPC CTHEORIC 
AMSTAR-VISION 


ASTROLOGIE Pratique 


34, rue de Turin 

: 75008 PARIS 
Tél. (1) 42 93 47 32 
Métros : Rome, Liège, 
St-Lazare, Place Clichy. 


PAIE PM. Réf. 51A TTC 1050 F 
Fichier salariés. 20 rubriques de paie. Bulletins 
de paie. Livres de paie. Calcul DAS. 


c BOURSE PM. Réf. 61A TTC 950 F 
Enregistrement des cours par familles de 12 
6492 NOUVEAU | valeurs. Analyse graphique sur 60 semaines, 
sc É mini - maxi - écarts moyens. Comparaison 
avec valeur de référence. 
TH 172 ee ji TH 175 FICH ET CALC. rei PL 834 nc 950F 
Coffret de rongement Gestion de lichiers - Vous créez vos lichiers et vous les exploitez - Classe 


40 disquettes ment par code - Séqueniel indexé - Éditions sélectives (clients, stocis, paie 
tarifs, inventaire, éhquettes, adresses, de prix) 
à charnières 


Coffret de rangement 
10 disquettes 


11C 1050F 


DEVIS FAC. Réi PM43A 

[130r | er pe ee DE AU EE 
factures. Livre de ventes 
COURRIER TEXTE. Rei PMB4A r1C 450F 


Traitement de texte simple pour courner, connectable avec Fich et Calc. A 


*X partir de la gestion de fichier, vous créez un hichier d'adresses auxquelles 


COMPTA PM. rei PM25A 11C 1450F 
EN PROFITANT DE NOS PROMOTIONS nca de ne cie MP GG 
© 17H175 + 10 DISQUETTES 3” 299 F GARAGISTE. Rei 454 nc 1450F 


Même fonction que DEVIS FAC : Calcul des petites fournitures’ - Statisti 


© | 1H]172 + 20 DISQUETTES 3 630 F ques mensuelles sur 10 familles dont huiles, carburant 


DISQUETTE SEULE 9" 28 F (8512 ou 8256, 2 lecteurs) 
sr Blois Consulter votre distributeur AMSTRAD 
Documentation sur demande à 
*marque déposée, photo non contractuelle PM INFORMATIQUE. 
22. place de la République - 59170 CROIX 


FORFAIT DE PORT 40 F (jusqu'à 5 Kg, au-delà nous consulter). PRIX TTC Tél. 20.98 29 2 


3770 DIl:IF (SGil) AND 7)=0 THEN EI:RETUR 
N:ELSE READ a,b.c:IF a=l THEN RESTORE 37 
90:GOTO 3770 

3780 SOUND 1,a,22,6:SOUND 2,b,22,6: SOUND 
4,c,22,6{GOT0 3770 

3790 DATA 626,0,318,568,0,284,504, 0,292, 
568,0,284,504,0,252,476,0,226,504,0,252, 
476,0,228,474,0,218,504,0,2952,4746,0,238, 
424,0,212,376,0,189,256,0,178,376,0,18E, 
45:4,0,212,476,0,278,504,1 2.252, 476,0, 238 


3800 DATA 326,169,64,201,150,75,268,174, 

67,225,112,56,225,112,56,23238,169,64,301, 
150,75,268 

3810 DATA 134,67,201,100,50,201,100,50,3 

26,169,64,301,150,75,268,174,67,225,112, 

56,201,100,50 

2829 DATA 225,112,56,268,1234,67,268,134, 

67,301,150,75,258,169,84,402,201,100,402 
,201,100,768,134,67,2301,150,75,2338,169,6 
4,451,225,112,451,22 | 

3830 DATA 112,266,134,67,301,150,75,2338, 
169, 84,407,201,100, 451,225, 112,402, 201, 
100,338, 169,84 

2840 DATA 84,676,0,75,602,0,67,536,0,56, 
450,0,56,450,0,84,676,0,75,60%,0,67,536 
,9,50,40%,0,50,402,0 

3850 DATA  84,676,0,75 .602,0,67,536,0,56, 
450,0,50,402,0,56,450,0,67,526,0 87,536, 

0,75,607,0,84,676,0,100, 804, 0,100,804,0, 
67,556,0,75,602,0,84,676,0 

3860 DATA 112 .902,0,112,902,0,67,536,0,7 
S, 602,0, 84, 676,0, 100,804, 0, 112, 902,0, 100 
,804,0,1,1,1 

3670 a$=INKEY$:IF a$="" THEN GOTO 3870 
3880 a$=UFPFERS$(a$):1F a$="N" THEN mu=REM 
AIN(2):GOSUB 3910:G0T0 4620 

2890 IF a$="0" THEN MU=REMAIN(2) :GOSUE 3 
910:GOT0 3920 

3900 GOTO 3870 

3910 WINDOW #1,1,40,18,25:PAPER #1,2:CLS 
#1: RETURN 

3920 PEN O:LOCATE 1,19:B$=" A TRAVERS 3 
& TABLEAUX QUI METTRONT VOS":GOSUE 4000 
2920 LOCATE 1,20:EB#="NERFS À RUDE EFREUV 
E, GUIDEZ VOTRE":GOSUE 4000 

3940 LOCATE 1,21:B$="EBALLE FOUR ACTIONME 
R-LES SONNETTES .":GOSUE 4000 

2950 LOCATE 1,22:B$=" A VOUS DE FAIRE L 
A FOLICE AUX CARRE-":GOSUE 4000 

I96ù LOCATE 1,23:E$="FOURS AU EON MOMENT 
ET DANS LE BON SENS":GOSUE 4000 

1970 LOCATE 18,24::FEN 1:B$="<ENTER:":60 

SUE 4000 

3680 EVERY 25.2 GOSUE 23770 

3990 “WHILE INEEYS$="": WEND: CLS #1: MU=REMA 
IN(Z):GOT0 40270 

4000 > H=1 TO LEN(D#):FRINT MIDS(b#,h, 


102 


1)3:1F MID#(b#.h,11£;" " THEN SOUND 1,50 


ns ac 
-sés ds yo eû 


4010 FOR t=i TO SO:NEXT t:MNEXT h:RETURN 
4020 PEN O:LOCATE 1,19:E$=" PRESS <EN 
TER: TO CHANGE KEY DEF":GOSUE 4006 

4020 Ed$=CHR$ (9) :kg$=CHR$ (8) :FEN 1:LOCAT 
E 16,20:B#="JOYSTICK":GOSUB 4000 
4040°FEN G:LOCATE 1,21:E$=" PRESS "+4 
CHRE(240)+"> OK <'4+CHRS (241)+"; TO CHAN 
E LEVEL":GOSUB 4000 

4050 FEN 1:LOCATE 16,22:E$=" LEVEL 1":6Ù 
SUE 4000 

4660 FEN G:LOCATE 1,23:E$=" PRESS < 
SPACE: TO START GAME “:GOSUB 400û 
4070 EVERY 25,2 GOSUE 3770 

4080 a$=INEEYS:IF a$t="" THEN GOTO 4655 
46906 IF A$=CHRS (240) OK a$=CHR#(i1) THE 
niveau=niveautil:IF niveau:9 THEN niveau 
=9 ELSE GOTO 4145 

4100 IF A$=CHK$S(241) OR a$=CHR$(10) THEN 
niveau=niveau-i:1F niveau“i THEN niveau 
=i ELSE GOTO 4140 

4110 IF A$S=CHR$S(13) THEN GOTO 4150 

4120 IF A$=" " THEN CLS: mu=REMAIN(2) : GOT 
0 820 

41530 GOTO 4080 

4140 LOCATE 25,22:FEN 2:PRINT CHR$(143): 

FEN 1:LOCATE 22,22:FRINT niveau:GOTO 408 
() 

4150 cle=cle+i:IF cle>2 THEN cle=i 

4160 ON cle GOTO 4170,4180 

4170 PEN 2:LOCATE 16,20:FRINT STRING$ (8, 
CHR$(145)):FEN 1:LOCATE 16,20: PRINT "JOY 
STICK": kKd#&=CHRS (9) : kg#$=CHR$ (8) : GOTO 4080 
4180 FEN Z:LOCATE 16,20:PRINT STRINGS (8, 
CHR (143)):FEN 1:LOCATE 16.20:FRINT "“ Cl 
RSOR “:Ekd#&=CHRS$ (2423) : kg$=CHR$ (242) : GOTO 
4080 

4190 REM sussssssssssessssesessssssiss 


4200 REM 


4210 REM balle - 1 

4220 REM 

4250 REM ssssssssseaseesesssssssssssssss 
4245 tp=renain(i):beltou=0:SOUND 3,20,10 


0,15,0,3:FO0OR t=i TO 1000:NEXT:balle=ball 
e-i:1F balle=0 THEN GOTD 4300 

4250 WINDOW #5,1,40,1,21 

4260 FEN 1:LOCATE 18+(balle*2),24:FRINT 
CHRS (143) :FEN 3:LOCATE 32,24: PRINT CHR&( 
216) +CHR$(Z16):FEN 1:LOCATE 34,24:FRINT 
CHRS (216) +CHR$ (216) +CHRS# (216) +CHR$& (216): 
temps=ii 

4270 IF sc+rec THEN rec=sc:GOSUE 3:96 
AE CLS #2: GOTO 105ù 

4296 REM FIN DE FARTIE 

4Z00Q RESTORE 4220: WINDOW 9,29,48,16:CLS:4 
INDOW 10,21,7,17:PAFER 1:CLS:WINDOW 1,40 


51129 


+310 


26 STEF 


XT Y: 


EXT I 
4320 DATA 214, .143,143,215, 143,32, 32,32, 


FEN 9:E= 
5:FOR Y=E TO B+Z3:LOCATE X.*:FOR 
J=1 TO 4:READ A:FRINT CHR$ (A); :NEXT JiNE 


SOUND 1,9,15,15,1,,15 


43,32,213,215, 213, 143, 143,212 


220 DATA 214,147,143,215,145,724,32,147, 


143,147%,143,143,143,232,22, 14 


4340 DATA 143,215,214,143,143,142,143,14 
2,145,215,2 
4350 DATA 143,143,143,143,145,140, 140,22 


143, 
2z 10) 


4770 


3,215,214,212, 


4:80 


12,145,143,32,32, 143 


131,131,32,143, 143,143, 143 


DATA 214,143,143,215,143,22,32, 143, 
143,32,22,143,213 
DATA 142,22,32, 1424142, 32,22, 143,21 


,143,145,212 


Le ir 4 T7 


32,213,212, si 


DATA 143, ES 


,143,131,131,32,143%,143,143, 143 


2z 90 


147,143 
4400 GOSUB 3480:CALL 2BE18:CLS:EL:RESTOR 


DATA 143,143 


,145,212,143,22,213,219 


E 3790:EVERY 25,2 GOSUE 3770 


4410 MODE 1:INK O,O:INK 1,8:INE 2,20: INF. 


3,15:BORDER 20:FAPER 2:CLS 


4420 FEN Z:LOCATE 12,6:FRINT tr$;"C ON 
F UC I U‘S":FOKR h=i TO 8:LOCATE 12+(h), 


é+h:FRINT STRING#(17-(h#2),"="):NEXT h 


4430 


PEN O:LOCATE 1,19:FRINT" FRESS 


ENTER: TO CHANGE KEY DEF" 


4440 kd&=CHR$ (9) :Eg$=CHR$ (8) : FEN 1:LOCAT 


E 16,0: FRINT"JOYSTICE" 


4450 


. "+CHR$ (240)+"5 OR <"'4+CHRS (241)+"% 


FEN O:LOCATE 1,21:FRINT" 


NGE LEVEL" 


4460 
4470 


<SFACE: 


RASE 
4480 
4490 
4500 
4510 
4520 
4530 
4540 


4550 DATA 21,27,3,9,18,10,22,31,10,9,31, 


18 
4540 


8,11, 


4570 
530 
4590 
CPSTRTR] 
dës 10 


4620 DATA 4,4,7,8,31,8,19,1,19;19,8,10,3 


FEN 1:LOCATE 16,22:PRINT" 
FEN O:LOCATE 1,23:FRINT" 


A 

IF sc'rec THEN rec=sc 

GOTO 4080 

REM ::::::: NIVEAU i : 
DATA 1,2,2,0,0,0,0,4,5, 
DATA 19,9 

DATA 28,3,:2,10 

DATA 20,3,8,10 


DATA 11,17,8.4,8,20,12,17,20,4,17,2 


17,32 

DATA 28,10 

DATA 32,18 

DATA 8,18 

DATA 20,18,28.18 

DATA 2,2,7,8,31,8,8,10,32,10 


2.10,20,3,29,18 
4820 REM sesssss NIVEAU 2 sis1:231: 


B:FOR 1=1 TO Z:FOR x=i1 TO 


INEXT X:B=15:N 


,140,140,37 


ae 143,22,22,145, 


PRESS : 
TO CHA 


LEVEL 1" 
PRESS 
TO START GAME":niveau=i:cle=i:E 


4640 DATA 2,3,37,0,0,0,0,8,8,4,23,3,0,0 

4650 DATA 15,7,26,12 

46ëÿ DATA 37,3,25,8,27,5 

4670 DATA 14,:,8,8,4,5 

4680 DATA 15,176,3,5,26,5,9,12,8,16,32,8, 

9,25,13,29,32,13,15,36, 16,5, 26, 18 

4690 DATA 6,17,4,9,12,8,4,6,14,10,15,14, 

6,11,27,15,17,27,9, 12,3:,4,15,237 

4700 DATA 14,5,27,8,14,13,27,16 

4710 DATA 17,16,33,13,27,18 

4720 DATA 14,16,8,13,4,18 

4720 DATA 4,4 

4740 DATA 3,3,7,14,32,6,36,17 

4750 DATA 4,5,8,1:,33,8,27,14 

4760 DATA 8,8 

4770 DATA 3,3,7,14,32,6,36,17,13,1,76,1, 

3,19,26,19 

4780 DATA 4,5,8,13,33, 

4,18,27,18 

4790 REM s2::25:: NIVEAU 3 ::: OCR 

4800 DATA 3,3,2,0,0,1,1,9,9,3,2,5,1,1 

4819 DATA 10,5,20,9, 30, 13 

4820 DATA 21,3,31,6,36,10 

48:20 DATA 11,3,5,6 

4845 DATA 13,17 

4850 DATA 6,17 

4860 DATA 12,20,3,6,9,6,15,50,6,6,19,10, 

23,35,10,22,29,14,35,235,14,7,12,17,17,230 

517 

4870 DATA 7,9,5,4,4,11,8,16,11,11,16,16, 

4,8,21,12,13,21,7,1%,31,16,16,31,11,13,3 

6 

4885 DATA 11,10,21,6,31,10 

4890 DATA 36,14,31,17 

4909 DATA 5,10,16,17,21,14 

4910 DATA 16,10 

4920 DATA 11,17 

4950 DATA 5,3 

4940 DATA 4,4,15,18,30, 

4950 DATA 5,6,16,17,31, 

4960 DATA 5 

4970 DATA 4 

4980 DATA 5 
4, 
9, 


8,37,16,14,3,37,3, 


4 

b 
9,18,20,4,5,18,25,15 
6,17,31,6,6,17,36,14 

: NIVEAU 4 sssssssss 

9000 DATA 3,0,2,1,1,11,11,1,3,3,0,2 
9910 DATA ,13,29,4,29,15 

5020 DATA 26,1,37,16, 20,7 

9030 DATA 4,14,25,5,10,1 

9040 DATA 4,4,:50,3 

SCS0 DATA 39,19 

5960 DATA 34,19 

3070 DATA 11,:5,1,5,8,7,12,19,7,24,26,5, 
22,35,5,95,8,14,12,22,14,21,28,16,:2,36,1 
6:9:29,20,35.,28,19 

9090 DATA 5,6,4,15,19,4,2,5,10,97,15,10,8 
119,20,6,13,23,7,14,130,18,19,230,2,4,36, 1 
7,16,37,16,19,10 

3090 DATA 26,14 


4990 REM : 


ou CRE 


000 
103 


5100 DATA 36,5,29,20,23;14 

5119 DATA 4,7,4,20,20, 16 

5120 DATA.37,19,10,20 

5130 DATA 4, Brel 17,:5,6,4,4,4, 
14,20,16,276,5 

5140 DATA 6, b,3,2,%,12,19, 17,25,6,19,5,3 
3,29,4, 4, 4,14,20,16,176,5,20,7,34,19 

5150 REM 2222252 NIVEAU S sssssscss: 

5160 DATA 5,4,2,0,1,1,1,12,14,2,4,4,2,1 
9170 DATA 16,5,23,5,16, 12,23,12,25,17 
5180 DATA 36,10,233,1, 17,1,3k; 6 

5199 DATA 4,6,19,1,24,1 

9200 DATA 39,15 

9:10 DATA 37,10 

9220 DATA 235,10 

5220 DATA 11,16,1,25,22,1,5,15,6,19,22,6 
.:6,:0,6,11, 15,13,19,22,13,26,32,13,9,16 
,18,25,24,18,28,38,18,5,25,21 

5240 DATA 7,20,4,7,17, 8,2,12,10,7,4,17,8 
,11,17,13,17, 17,2,4,24, 8,11,24,15,17,24, 
7, 17,31,2,12,33,11, 16, 36,20, 20, 26,16, 17, 
39 

5290 DATA 10,6,31,13 

5260 DATA 39,18,36,21,33,13,17,18 
5270 DATA 4,21,8,18,24,18,10,13 
5280 DATA 8,6,36,10 

290 DATA 31,18 

300 DATA 4,4,7,4, 

Lu 19,15 .35,13 

310 DATA 6,6,7,4,20,4,9,14,22,14,36,8,Z 
re 6,19,13,33,13,237,10,39,15 
9220 REM ss2s2152 NIVEAU 6 sis22352: 

330 DATA 6,4,4,0,0,0,0,14,14,7,4,4,0,0 
5240 DATA 5,4,5,9,5,14,11,7,11,12,11,17 
53559 DATA 35,5,38,13,33,8,12,2 

5:60 DATA 6,2,1,5,9,8,3,10 
5:70 DATA 7,11,2,2,4,5,8,34,5,10,10,8,14 
,32,8,4,4,10,8,34,10,10,10,13,14,37,13,4 
,4,15,8,32,15,2,10,18,14,37,18,7,11,21 
5:86 DATA 6,17,1,11,14,3,5,2:,6,7,8,6,12, 
1:,6,17,20,6,9, 12,9,2,6, 12,10,11,12,15,1 
6,12,20,20,12,9,14,33,6,9,235,14, 17,28 
5390 DATA 9,10,23,10,23,13,6,18,12,5,12, 
10,12,15 
5400 DATA 38, 18,25,10,33,15,12,21 
5410 DATA 1, 18,3,15,9,13,6, 21 
5420 DATA 2,3,34,3,27,11,32,16,35,5,38, 1 
3,335,15 
5430 DATA 5,5,174,3,:7,11,32,16,8,3,2,1é6, 
25,5,38,13,35,195,9,5,5,15 
5440 REM 2522252: NIVEAU 7 sss2551:: 

5450 DATA 4,2,2,0,0,4,4,12,10,1,2,2,2,2 
5460 DATA 11,5,11,14,28,5,28, 14 
5470 DATA 1%,1,233,15 
5480 DATA 3,1,6,6 
ce DATA 32,1,32,21,39,3,39,18 
500 DATA 26,1,26,21,237,3,233,18 
5510 DATA 4,11,1,27,31,1,174,58,37,7,10,6, 


30,4,9,14,32,14,8,6,31 
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14,27,8,31,24,6,4,10,15,7,11,21,27,31,21 
.24,28,18,14,27,15.31,34,15 

5520 DATA RS dr 
4,29,8,13,29,17,20,29,4,5,35,1 


9920 DATA 4,15 
S5d4i DATA 15,6,12,21 
93290 DATA 3,15,6,21 
&) DATA 297,1,25,2Z 
O DATA 29,21,25,18 
0 DATA 3,3,5,4,2,16,20,13,6,6,3,15,21 
O DATA 5,5,5,4,2,16,20,13,20,4,:8,19, 
6,6,3,15,21,15,21,6,39,18 

5600 REM ::::::: NIVEAU B ::222:1:: 
5616 DATA 6,4,4,0,0,4,4,18,17,:,4,4,4,4 
5620 DATA 5,4,10,9,5,14,29,4,34,9,29,i4 
5630 DATA 39,5,:35,8,23,3,170,10 

9640 DATA 2,5,13,3,15,5,32,10 
96950 DATA 33,1,233,19,9,1,9,19 
oééd DATA 3,1,3,19,27, 1,27, 19 

5670 DATA 4,8,1,28,235,1,14,22,3,3,4,5,8, 
2,5,16,28,5,22,38,5,31,%4, 8,9,9,10,13,2 
9,10,33,33,10,37,28,10,3,4,15,8, 10, 15,16 
,28,195,22,34,15,4,8,19,26,232,19 
5680 DATA 6,14,2,2,3,6,7,13%,6,17,18,6,6, 
9,8,6,8,11,12,14,11,6,14,15,4,14,27,2,3, 
20,7,7,230,11,13,30,17,168,30,11,14,252,12, 
14,25,6,9,59,4,4,13 
5690 DATA 15,10,23,10,23,5 

9700 DATA 25,15,11,15,13,5.39,10 
5710 DATA 2,15,8,10,15,15,:0,8 
97:20 DATA 6,1,8,5,50,1,11,35 
5730 DATA 6,19,:30,19,23,15,32,15 
5740 DATA 5,5,:38,11,14,16,1,16,22,1,10,1 
6,39,10,15,15,2,195,23,3,11,15 
5750 DATA 7,7,28,11,14,16,1,16,22,1,10,1 
6,32,20,18,8,239,10,15,15,2,15,23,3,11,15 
523,19,19,10 
5760 REM ::::::: NIVEAU 9 ssssuss: 
5770 DATA 4,0,0,0,0,0,0,11,13,0,0,0,0,0 
5780 DATA 6,5,24,5,14,1:3,72,13 

5790 DATA 7,17,23,19,30,35,3,5,6,9,15,6,17 
,23,6,27,28,6,7,1:,14,17,25,14,28,31,14, 
25,1:8,14,35,26, 18 
5860 DATA 5,18,:3,3,4,7,8,14,7,46,1:,13,18 
17115,26,17.3,4,25,8, ed 2 1 
£,233,16,17,233,3,12,25,14,18,38 

5819 DATA 3,3,6,1,277,1,6,15,7,3,28,3,7,1 


4 

5820 DATA 5,5,6,1,1:7,1,6,15,2%4,15,%1,17, 
7,2,18,2,7,14,25,14,227,186 

GO REM sise cena set ssnsisss 
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DE BASIC 2 


Jean-Lours Greco Michel Laurent 


‘GUIDE DE BASIC 2’’ 
Jean-Louis GRECO, 
Michel LAURENT 
(Sybex) 


Cet ouvrage, pour programmeurs confir- 
més, est un répertoire des commandes 
et fonctions du Basic 2 de LOCOMOTIVE 
fonctionnant sous le haut patronage de 
l'intégrateur GEM. 

Le PC 1512 profite de ce langage très 
rapide qui n’est pas un Basic comme les 
autres. Le programmeur, désormais, 
devra apporter un plus grand soin à la 
conception de ses programmes avant de 
passer à l'écriture, ce qui va bouleverser 
les (mauvaises) habitudes de certains. 
Finis les GOTO gjlissés ici et là pour régler 
un probème de dernière minute ! Main- 
tenant, on programmera en Basic à la 
manière du Pascal. L'aspect physique 
d’un programme en Basic 2 est d’ailleurs 
très ‘’pascalien'’ : pas de numéros de 
lignes, appel aux sous-routines par leurs 
étiquettes. 

L'ouvrage nous propose, en prime, un 
intéressant programme de fichier indexé 
qui devrait séduire les plus exigeants. 
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ORDINATEUR PC 1512 
PERSONNEL 


EDITION MICRO APPLICATION 


‘’AMSTRAD : 

ORDINATEUR PERSONNEL 
PC 1512’ 

Guide de référence technique 
(Micro Application) 249 F 


Déjà ? Déjà ! 

Chez Micro Application, on ne traîne pas. 
Et, en l'occurence, tant mieux, car ce 
guide de référence technique, en anglais 
‘‘fimware’”, est clair, précis et apparem- 
ment complet. Pour ne rien gâcher, la tra- 
duction de Pascal HAUSMANN est par- 
faitement transparente. 

Les caractéristiques techniques occu- 
pent le premier quart du manuel et le 
système d'exploitation se trouve remar- 
quablement détaillé dans la seconde par- 
tie où l’on ne vous cache rien des des- 
sous du PC 1512. Au fait, si 512 ko 
vous semblent un peu maigrichons 
(pourquoi pas !), une annexe vous indi- 
que la marche à suivre pour transformer 
la machine en PC 1640. 


A LA VITRINE DU 


Un seul regret, le prix. Pourquoi les fabri- 
cants ne comprennent-ils pas qu’un 
ouvrage aussi indispensable devrait être 
livré avec la machine ? Il est vrai 
qu'AMSTRAD fait déjà l'économie ‘du 
manuel Basic, alors !…. 
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L'acquisition d'une machine aussi com- 
plexe qu'un PC 1512 nous plonge dans 
un abîme de perplexité quant à nos capa- 
cités à assimiler à la fois son fonction- 
nement propre et celui du paquet de logi- 
ciels livrés avec lui. 

Ce GUIDE DE L'UTILISATEUR est en fait 
un anti-stress, malheureusement pas 
encore remboursé par la sécurité 
sociale ! Il est clair, concis, et nous guide 
pas-à-pas à travers le dédale des habi- 
tudes à prendre. 

Après la découverte des composantes de 


la machine, on établit les différentes 
connexions, puis vient le moment du 
branchement au secteur et c'est parti | 
Quelques copies de sauvegarde et on se 
retrouve, sans même s'en être rendu 
compte, en train de promener la souris 
et dérouler les menus de GEM. Tout est 
illustré par des images-écran. On passe 
alors en revue DESKTOP, GEMPAINT, 
GEMDRAW, GEMWRITE, GEMGRAPH, 
on sort quelques écrans sur l'imprimante 
et on jette un coup d'œil au Basic 2. Le 
tour du propriétaire étant terminé, on 
peut alors profiter du sommeil du juste 
en se promettant toutefois de suggérer 
à l'éditeur de signaler, en haut de page, 
le chapitre en cours de lecture. Ce livre 
très pratique le serait, alors encore plus. 


LE LIVRE 
DU LOGO 


PCWet CPC 


‘’LE LIVRE DU LOGO”’’ 
Amstrad PCW et CPC 
(Micro Application) 


Ne nous le cachons pas, l'image que 
nous avons du LOGO est la TORTUE. En 
fait, ce livre nous apprend, très claire- 
ment, comment gérer des fichiers, jouer 
avec les chaînes de caractères, et natu- 
rellement dessiner avec la tortue. 

Cet ouvrage vous prend par la main et 
les progrès sont rapides. L'auteur n'est 
pas avare de détails ni de graphiques et 
certains en relief ! 

Alors, on essaye ? 


LES NUMEROS HORS 
SERIE DE CPC 


GRATUIT* 


* 


Si vous vous abonnez 


à partir du 1/1/87 
Bon de commande page 114 


Nous croyons bon de rappeler à nos lec- 
teurs les points suivants : 


TELEPHONE : Pour des renseignements 
d'ordre administratif (commandes, abon- 
nements, etc.), il ne faut pas appeler le 
merdredi (9h à 12h et 14h à 17h}, nile 
vendredi matin (9h à 12h). Ces créneaux 
horaires sont réservés aux appels tech- 
niques concernant la rédaction et le 
contenu des revues. 


COURRIER : Le courrier doit obligatoire- 
ment être accompagné d'une enveloppe 
self-adressée affranchie, qui sera utilisée 
pour vous répondre. Seuls les abonnés 
(justifiant par l'envoi de l'étiquette 
accompagnant tous les mois la revue) en 
sont dispensés. N'abusez pas... Ne 
posez pas plus de trois questions par let- 
tre ! De plus, le service courrier n’est pas 
fait pour écrire vos programmes : il existe 
de bons ouvrages pour cela ! 


— Seule la fonction arc tangente (ATN) 
existe sur le Basic AMSTRAD. Comment 
peut-on calculer l'arc cosinus ou l'arc 
sinus ! 

— Voilà une question qui tracasse les 
matheux ! Et bien, en cherchant dans 
quelques bouquins, on a fini par dénicher 
ces relations oubliées. 

ACOS{X) = 1.5708 - 2xATN(X/1 +SOR 
(1—Xx+X))) 

ASIN(X) = 2*ATN(X/1 + SOR(1 — XxX))) 
Les angles sont exprimés en radians. 
Rappel : le passage des radians en degrés 
s'effectue en multipliant par 180/r. 


— Pourquoi ne pas faire une cassette (ou 
une disquette) avec tous les trucs et 
astuces publiés dans CPC ? 

— Nous avons le principe de toujours 
satisfaire le lecteur/utilisateur et ‘‘de lui 
en donner pour son argent'’. Nous ne 
pensons pas que les trucs et astuces, 
publiés depuis le début de CPC, justifient 
une édition sur support magnétique. 


— J'ai tapé le listing EUROPA du CPC n° 
17 et j'ai pour principe d'essayer le pro- 
gramme par parties, après avoir écrit une 
dizaine de lignes. J'obtiens de nombreux 
messages d'erreurs (division by zero, 
etc.). Est-ce normal ? 

— Tout-à-fait normal ! Un programme 
forme un tout et il est hors de question 
de l'essayer par petits bouts ! Imaginez 
que sur une ligne vous ayiez A =B/C et 
que C soit initialisé plus loin, dans une 
partie du programme que vous n'avez 
pas encore saisie... Le résultat sera 
C=0, d'où ‘‘division by zero !'’. Conclu- 
sion : tapez toujours le programme en 
entier, vérifiez soigneusement votre lis- 


ting en le comparant à celui de la revue 
et, seulement après être certain de ne 
pas avoir laissé d'erreur, téléphonez à la 
rédaction (le mercredi ou le vendredi 
matin) pour avoir un tuyau | 


— Dans le courrier des lecteurs, vous 
dites que AMSTRAD 464 + DK'Tronics 
+ ROM du 6128-6128. Où se procu- 
rer la ROM du 6128 ? 

— Onne peut pas trouver, dans le com- 
merce, la ROM du 6128. De plus, cette 
modification ne peut pas être effectuée 
par n'importe qui. En effet, sur la plupart 
des CPC, les ROM sont soudées... Il 
n'est pas évident des les dessouder, sans 
dommages pour le circuit imprimé , si 
l'on ne possède pas le matériel adéquat. 
Programmer une EPROM en y recopiant 
le contenu d’une ROM de 6128, préle- 
vée sur la machine d'un ami est faisable, 
lorsqu'on possède à la fois les compé- 
tences et le matériel. Ne vous lancez pas 
là-dedans, si vous n'êtes pas suffisam- 
ment bon technicien. Mieux vaut possé- 
der un 464 en bon état de marche qu'un 
faux 6128 en panne |! 


— Comment brancher les sorties vidéo 
et son d'un tuner provenant d'un magné- 
toscope portable sur un moniteur AMS- 
TRAD afin de le transformer en télévi- 
seur ? 

— Déjà, pour le son, ce sera difficile ! Il 
n'y a pas d'entrée son dans le moniteur 
AMSTRAD, et même si vous utilisiez 
l'ampli et le petit haut-parleur situés dans 
l'unité centrale, les résultats seraient 
décevants. 

Pour l'image, il faut savoir que l'AMS- 
TRAD délivre au moniteur des signaux R, 
V,B,S (Rouge, Vert, Bleu et Synchro). 
Le moniteur AMSTRAD ne possède pas 
d'entrée ‘‘vidéo composite'’, acceptant 
à la fois les informations vidéo + cou- 
leur +synchro. Si votre tuner sort lui- 
même en R, V,B + synchro, l'adapta- 
tion sera envisageable. S'il délivre direc- 
tement un signal vidéo composite, ce 
n'est pas la peine d'y penser ! 
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OGICIELS MICRO APPLICATION: 


AVOIR 
ET PERFORMANCES. 


Vous qui vénez d'acquérir un 
Amstrad PCW, qui voulez à coup sûr 
réussir vos débuts sur cette machine, 
et tirer rapidement le meilleur de ses 
capacités, voici l'ouvrage idéal et in- 
dispensable. Vous découvrirez pas à 
pas le puissant traitement de texte 
LOCOSCRIPT, le système d'exploitation 
CP/M, puis la programmation sous 
“BASIC MALLARD, et l'utilisation de 
DR LOGO. (Réf.:ML164).129 FRANCS. 


Simple d'utilisation grâce à son 
système de saisie et ses touches de 
fonction définissables, DATAMAT PCW 
vous assure de par son système de 
recherche et ses méthodes d'accès 
sophistiquées, une gestion rapide et 
efficace de vos données. Sa puis- 
sance de programmation vous per- 
met de relier différents formulaires, 
d'effectuer des calculs arithmétiques, et 
d'utiliser 9 pages écran par fichier. 
(Réf. : AM 316). 590 FRANCS. 
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Spécialement conçu pour votre 
PCW, ce logiciel graphique vous per- 
met d'exploiter de façon optimale les 
capacités de votre machine. Créez 
des histogrammes de présentations 
variées, visualisez et synthétisez les 
résultats de vos applications ou des 
logiciels que vous utilisez. Ainsi par 
exemple, vous est-il possible d'afficher 
simultanément 4 représentations gra- 
phiques d'un tableau créé sur MULTI- 
PLAN. (Réf. : AM 315). 395 FRANCS. 


Y 


Voici l'outil indispensable pour 

les débutants et un “must” pour l'uti- 
lisateur professionnel. Ce livre, clair 
et complet, regroupe notamment tou- 


4 tes les possibilités du PCW, et répond 


à vos différentes attentes. Il solutionne 
avec efficacité tous les problèmes 
de programmation et d'utilisation 

du PCW. (Réf.: ML165).179 FRANCS. 


PC / PCW : MAIÏTRISER 
LE LOGO, COMPRENDRE LE GSX, 
ET TOUT SAVOIR SUR CP/M. 


Moîtrisez CP/M (version CP/M 2.2 
et CP/M 3.0) sur Amstrad CPC et 
PCW 8256. Vous disposez dans cet 
ouvrage de l'aide et des explications 
nécessaires à une bonne utilisation 
et compréhension de CP/M, comme 
par exemple le stockage des données, 
la protection contre l'écriture, la co- 
dification ASCII, la maîtrise des pro- 
grammes utilitaires CP/M et le fonc- 
tionnement même de CP/M pour les 
programmeurs avancés. (Réf. : ML 128). 
149 FRANCS. > 


Maîtrisez le LOGO et utilisez plei- 
nement les capacités graphiques de 
votre CPC ou PCW, grâce aux nom- 
breux exemples, illustrations et exer- 
cices proposés. (Réf.: ML 162). 

149 FRANCS. 


299 FRANCS. 
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TOUT SUR LE GSX. Ce livre est un 
must. Tout sur le graphisme sur CPC 
et PCW. Vous y trouverez notamment : 
programmation d'un logiciel PAINT, 
graphismes de gestion (histogram- 
mes...), graphismes vectorisés, fonc- 
tionnement et réalisation d'un light 
pen, graphismes en langage machi- 
ne. Et enfin, pour la première fois, des 
explications complètes et claires sur le 
GSX. (Réf. : ML 181).199 FRANCS. 
(Réf : ML 281 avec disquette). 


ES "MUST" 
SUR CPC. 


Tout connaître sur CPC 6128. 
Analyse du système d'exploitation du 
processeur, le GATE ARRAY le contrô- 
leur vidéo, le 8258, le chip sonore, les 
interfaces... Comprend un désassem- 
bleur, les points d'entrée des routines 
commentés de l'interpréteur et du sys- 
tème d'exploitation. Le livre de référence. 
(Réf. : ML 146). 199 FRANCS. 


A 


Ce livre est destiné à tous ceux 
qui désirent aller plus loin que le BA- 
SIC. Des bases de programmation 
en assembleur à l'utilisation des rou- 
tines systèmes, tout est expliqué avec 
de nombreux exemples. Contient un 
programme assembleur, moniteur 
et désassembleur. (Réf. : ML 123). 
129 FRANCS. 


UN LIVRE + UN LOGICIEL. Ce livre 
permet au novice de maîtriser la pro- 
grammation du Z 80 grâce à la mé- 
thode efficace du Dr Watson. De nom- 
breux exemplesillustrent les différentes 
étapes, et des exercices (les solutions 
sont fournies) testent la compréhen- 
sion et peuvent être directement essa- 
yés avec le logiciel. Ce logiciel est 
composé d'un assembleur, d'un dé- 
sassembleur et d'un programme 
d'exemples. Avec l'assembleur créez 
des programmes en langage machi- 
ne pouvant être utilisés directement 
sous CP/M. (Réf. : ML 426).295 FRANCS. 


Tout sur la programmation et la 
gestion des accès disque avec le 
CPC 6128, CPC 464 et le FLOPPY DDIH. 
Ce livre vous fournit de nombreuses 
informations et de précieux conseils 
ainsi que les listings d'utilitaires ul- 
tra-performants comme un MONI- 
TEUR DISQUE, une GESTION DES F1- 
CHIERS RELATIFS... le listing du DOS 
commenté, la description électronique 
de l'appareil et une gestion de fichiers 
complète. De nombreux exemples 
accompagent chaque chapitre. 
(Réf. : ML 127).149 FRANCS. 

(Réf. : ML 227 avec disquette). 
269 FRANCS. 


C'est la solution bureautique com- 
plète sur CPC. Ce package regroupe 
trois logiciels de haute qualité (TEX- 
TOMAT : traitement de texte, DATAMAT : 
gestion de fichiers, CALCUMAT : tableur 
graphique) complémentaires et ho- 
mogènes qui vous permettent de trai- 
ter efficacement toutes vos tâches de 
bureau. Les trois logiciels pouvant 
s'échanger leurs données, les possi- 
bilités offertes par LA SOLUTION sont 
très vastes (mailing..). (Réf. : AM 313). 
950 FRANCS. 


Œœc 18 
RÉF | DESIGNATION | QUANT.| PRIX El Manrar Ci Ciéque CI CUP 
| Libellez vos chèques à l'ordre de Micro-Application 
| Nom, Prénom 
| 1 Adresse 
| Ville 
TOTAL TIC. Code Postal 


20 
ou 40 F pour envoi recommandé 


TRUCS ET ASTUCES 


C'est le livre que tout utilisateur 
de CPC doit posséder. De nombreux 
domaines sont couverts (graphis- 
mes, fenêtres, langage machine) et 
des super programmes sont inclus 
dans ce best-seller (gestion de fi- 
chiers, éditeur de textes et de sons...). 
(Réf. : ML 112). 149 FRANCS. 


LA BIBLE DU PROGRAMMEUR 

Absolument tout sur le CPC 464. 
Ce livre est l'ouvrage de référence 
pour tous ceux qui veulent program- 
mer en pro leur CPC. Organisation de la 
mémoire, contrôleur vidéo, interfaces, 
interpréteur et toute la ROM DÉSAS- 
SEMBLÉE et COMMENTÉE sont quel- 
ques-uns des thèmes de cet ouvra- 
ge. (Réf. : ML 122). 249 FRANCS. 


COMMUNICATIONS, MODEM ET 
MINITEL SUR AMSTRAD CPC 


Un Amstrad, un téléphone, un mo- 
dem: la combinaison gagnante pour 
entrer dans la télématique. Aspect 
théorique : fonctionnement d'une inter- 
face RS 232, norme Vidéotex, descrip- 
tion du fonctionnement du Minitel. 
Aspect pratique: description d'une 
interface série, d'un modem et d'une 
interface RS 232/Minitel. Cet ouvra- 
ge est également d'une grande utilité 
aux utilisateurs de PCW. (Réf. : ML 151). 
149 FRANCS. 


BIEN DÉBUTER AVEC VOTRE 
CPC 6128 

Ce livre s'adresse à ceux qui dé- 
butent avec le CPC 6128. Tout est 
clairement expliqué aussi bien pour 
le matériel que pour le logiciel. Une 
fois votre machine bien en main, 
vous pourrez vous attaquer au BA- 
SIC et vous servir de l'utilitaire de 
gestion d'adresses proposé. 
(Réf. : ML 145). 99 FRANCS. 


TRUCS ET ASTUCES II 

Tirez le maximum des possibilités 
de votre CPC 464 ou 6128 grâce à 
cet ouvrage. Vous y trouverez: un 
générateur de menus, un générateur 
de masques, des aides à la program- 
mation (DUMP), l'utilisation des rou- 
tines systèmes et des astuces de 
programmation. (Réf. : ML 147). 
129 FRANCS. 
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Are 


MICRO APPLICATION 


13, RUE SAINTE-CECILE 
75009 PARIS - (1) 47.70.32.44 


SOUUOOCOOOOOOOD 


1) Date d'expiration : 
F de frais d'envoi 


Date et signature 


| 


SONDAGE 


Nom : 


Adresse : 


Age : 


Pour nous aider à vous proposer dés articles et des listings tou- 
jours plus intéressants, nous vous invitons à les noter en fonction 
de l'intérêt que vous leur accordez. 

CPC sera ainsi encore plus proche de ses lecteurs | 

Pour vous encourager à participer à ce sondage mensuel, nous 
tirerons au sort 3 bulletins qui recevront un cadeau surprise. 


Actualité 
Vu en Angleterre 


Cherry-Paint 


Ecriture-Lecture de fichiers 


Editeur de Langage machine 

Initiation à CP/M 

Rencontre avec Andréa Tanguy 

Top Calcul 

Trucs et astuces 

Au cœur du PCW 

Installation drire 31/2 

Branchez le Turbo 

Amsmusic 

Compte Bancaire 

Trucs pour imprimantes 

La Musica 

Confucius 

Nos rubriques (en général) 
Courrier 
Essais matériels nouveaux 
Essais logiciels 


Vitrine du libraire 


Here Prénom ..........:... 


Je possède un [ CPC 464 (drive) [] 664 [1 6128 
[1] PCW 8256 [] 8512 O] PC 1512 


À retourner à : Editions SORACOM ‘’Sondage Mensuel 
CPC’, La Haie de Pan, 35170 Bruz 
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EN FINI 


CTEUR 5° 1/4 
pour AMSTRAD 


Fe 1 M OCTETS 
SPECIAL 1 699 F TTC 


J ® LE JASMIN AM5D 


le 2° lecteur double têtes, double ou quadruble densité, 
indispensable pour votre AMSTRAD 
CPC 464 - 664 - 6128 et PCW 8256/8512 


Ne payez plus vos disquettes 3" 
à 60 F. on trouve des disquettes 
5” 1/4 à moins de 7 F 


- Accéder à toute la bibliothèque CP/M éditée sur 5’ 1/4 


grâce aux utilitaires disponibles chez « WILD WEST », 
84760 St-Martin de la Brasque. Tél. : 90.77.61.36 


JASMIN AM-5D, le lecteur double têtes Puissant mais Econome 


Plus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux. LISTE DES POINTS DE VENTE 


Lecteur 51/4. JASMIN AMB5D: formaté, entièrement compatible AM5DOS, PRIVILEGIES JASMIN AM5D 5‘'1/4 
CP/M.22 et CPM+., livré avec disquette utilitaire de formattage et de duplication 
é:CISQUETIB: 22. snessmestemssessseeseuisees 1 699,00 F TTC 14000 CAEN - LOISIR INFORMATIQUE, 39/41, Rue de l'Oratoire, tél. 31.85.18.77 
Lecteur 5” 1/4 JASMIN AM5D + - 1 M : double têtes, quadruble densité, 720 K for- 33000 BORDEAUX - L'ONDE MARITIME, 257, Rue Judaïque, tél. 56.24.05.34 
matté, entièrement compatible AMSDOS et CP/M_, livré avec disquette utilitaire de duplication, format- 33000 BORDEAUX - ESAT SOFTWARE, 55, Rue Tondu, tél. 56.96.35.23 
tage et utilisation en 80 pistes. ................................... 1799,00 F TTC 33000 BORDEAUX - SON VIDEO 2000, 31, Cours de l'Yser, tél. 56.92.91.78 
Cable de liaison pour CPC 6128/664..................... 155,00 F TTC 33000 RENNES - MICRO C, 3, Bd. de Beaumont, tél. 99.31.70.41 
Adaptateur AD 12 - VDC : pour l'utilisation avec des moniteurs sans sortie 12 V.60,00 F TTC 37170 CHAMBRAY LES TOURS - Centre commercial du CAT, tél. 47.27.29.00 
Kit de liaison du JASMIN AM5D + : avec le PCW 8256/8512. ..250,00 F TTC 511000 REIMS, 2, Av. de Laon, tél. 26.47.44.14 
Jasmin-Booster : adaptateur à rajouter derrière l'AM5D ou AM5D + leur permettant d'être utilisé en maître ou esclave, 64000 PAU - BASE 4, 11 Rue Samonzet, tél. 59.83.78.78 
et pour le lecteur 1 M de se comporter en 500K. Disponible en octobre : Prix indicatif. . ....... 350,00 F TTC 69000 LYON - FRANCE DISQUETTES, 255, Av. Berthelot, tél. 78.01.79.63 
Disquettes 5°’ 1/4, l'unité.................................. 7,0 F TTC 75014 PARIS - VIDEO SHOP, 251, Bd. Raspail, tél. 42.96.93.95 
Imprimante spéciale AMSTRAD AM PRINTER : Silencieuse - 50 CPS - Qualité cour- 75001 PARIS - VIDEO SHOP, 50, Rue de Richelieu 
rier - 132 colonnes en contractées. ................................ 1995,00 F TTC 75010 PARIS - GENERAL VIDEO, 10, Bd. de Strasbourg, tél. 42.06.50.50 
Cable CENTRONICS pour AMSTRAD................... 175,00 F TTC 75011 PARIS - VISMO, 84, Bd. Beaumarchais, tél. 43.38.60.00 
Les prix en boutique comprennent le port. 75019 PARIS - DFI Centre de démonstration, 66, Rue d'Angers 

AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256/8512 - AMSDOS sont des marques déposées d'AMSTRAD. JASMIN AM-5D est une marque déposée de T.R.A.N. sarl. CP/M est une marque déposée de Digital Research 
* 500 K et 1 M octets, non formattés Tous nos prix sont en fonction de nos stocks au 19 Septembre 1986 
BON DE COMMANDE à T.R.A.N. sarl - 53, impasse Blériot NOUVEAU PAYEZ PAR CARTE BLEUE / INTERBANCAIRE 


83130 LA GARDE - Tél. : 94.21.19.68 Cars Dee 
Crédit possible. Nous téléphoner 1 


Port gratuit en France pour achat de plus de 500 F TTC - Forfait de porten France pour achat de moins de 500F TTC: 40,00F TTC 
Supplément contre remboursement : 120,00 F TTC. 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs'’ de inatériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘‘d'origine’”, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends VG 5000 + matériel + 21 logiciels, le tout : 
2500 F (valeur réelle : 6000 F). Léonard DAVID, 
9 rue Mozart, 57100 THIONVILLE. 


Echange + de 90 jeux pour AMSTRAD 6128 ou 
464 contre matériel pour 6128. Olivier SOURSOU, 
4 av. Fernand Pezet, 46100 FIGEAC. 


Vends souris AMX s/garantie : 500 F. 2e lecteur 
Tran 5'’1/4 avec câble pour 6128 s/garantie : 
1300 F. J. FAGE, 28 imp. Grand, 83140 SIX 
FOURS. 


Vends Vectrex + 2 manettes + 8 K7, prix à débat- 
tre. M. JACQUEMOIRE, 65 rue George Sand, 
91120 PALAISEAU, tél. 60.14.01.87. 


Vends PCW 8256 avec 512 K RAM (août 86) + 
imprimante, logiciels, disquettes, livres, revues : 
5500 F. Tél. 49.28.43.45. 


Vends AMSTRAD CPC 6128 + imprimante DMP 
2000 s/garantie, tbe + logiciels : Textomat + 
divers + 10 disquettes : 5000 F. Tél. 45.86.46.06. 


Vends nombreuses revues AMSTRAD (dont épui- 
sées), livres, etc. Poss. échange. J.C. LANDRY, 7 
place G. Rivet, 38000 GRENOBLE. 


Vends CPC 464 vert : 1600 F. Drive DDI-1 
1200 F. Livres, jeux, joystick, MP 1, Péritel, 64 K 
DK'Tronic. 62810 GIVENCHY, tél. 21.59.10.22. 


Vends extension DK'Tronic 64 K pour 464 + dis- 
quette CP/M +. Valeur neuf : 599 F, vendu : 300 F. 
Francis GOLOVINE, tél. 43.79.81.14. 


Vends AMSTRAD 464/128 K mono : 2300 F. Lec- 
teur disk DD1 + Muitiplan : 1500 F. Impr. DMP 1 : 
1500 F. Ad. péritel : 350 F. M. SIMON, tél. 
42.60.33.30 P 28412-34171235. 


Vends CPC 6128 coul. + DMP 2000 garantis + 
joystick + revues + 120 progs (jeux et utilitaires) 
+ livres : 8700 F à débattre. Tél. 39.11.17.38. 


Vends imprimante DMP1 + traitement de texte + 
recopie d'écran 1600 F. M. SEGEAT, tél. 
49.42.00.85 HR. 


Vends 6128 coul. ss. garantie + dBASE Il + nbx 
jeux (d) + 2 joysticks + docs + revues : 6500 F. 
F.P. MASSON, tél. 71.61.08.18. 


Vends jeux sur cassettes : Arcade, Action, Réflec- 
tion : 40 F l'un, 90 F les trois. Tél. 90.51.71.44, 
demander Christophe. 


Vends ORIC 48 k complet + alim. rég. + mod. N/B 
+ 5jeux + 9 livres + revues : 600 F. J.M. BRUN, 
tél. 90.60.32.14 après 19h. 


Vends CPC 664 + joystick + lecteur K7 + 17 dis- 
quettes + 2 manuels + moniteur coul : 5000 F. 
Tél. 48.34.68.95 de 19h à 20h, Déjan. 


Vends Macadam Bumper pour Spectrum 48 K en 
K7:75F. Tél. 41.95.30.92 après 19h. M. PAT- 
TIER, 49220 LE LION D'ANGERS. 


Vends logiciels pour CPC AMSWORD : 200 F. Poc- 
ket Base (jamais utilisé) : 650 F. Manager : 100F. 
Fichier Lore : 100 F. Tél. 47.46.07.22. 


Liaison sans fil entre tous AMSTRAD et chaîne HIFI/ 
récept. FM par micro-émetteur FM haute qualité : 
230 F. F. PICAULT, 13450 GRANS. 


Cherche contacts région lilloise pour création logi- 
thèque (prêts de logiciels originaux + revues + 
livres). Association 1901. Tél. 20.95.13.15. 


Vends AMSTRAD CPC 464 coul. + joystick + 


livres + jeux : 3000 F. Tél. 16 (1) 44.82.24.49. 


Vends HP 42 cx Fer 84 + livres, tbe, le tout : 
2100 F. O. LECHALUPE, 17 rue J.B. Ciement, 
76210 BOLBEC, tél. 35.31.52.65. 


Vends 6128 coul. s/garantie + synt. vocal + 16 
disquettes de jeux + 10 K7 + 3 livres : 5800 F. 
M. LENAM, La Solidarité, Bt. N24, Marseille, tél. 
91.51.86.03. 


Urgent : Echange moniteur mono 464 tbe + 500 F 
contre moniteur couleur 464. Pascal FOLQUER, tél. 
45.79.92.04 après 20h. 

Vends AMSTRAD CPC 664 monochrome + Péri- 
tel : 3500 F. Vends imprimante Epson P40 : 
1200 F. Tél. 96.94.01.21 le soir. 


Vends CPC 6128 mono (5/3/86) + compilateurs 
T. Pascal, C, CBasic, Forth, Speedy Wonder + 
livres : 4500 F. Tél. 60.48.15.14. 


Affaire ! Vends CPC 464 mono + jeux (+ de 70) 
+ revues + docs. + bouquins + joystick : 4500 F. 
Xavier au 74.97.47.91. 


CPC 6128 cherche logiciels math terminale D (ou 
sc. physique, chimie) et si possible niveau faculté. 
Franck au 47.63.80.42. 


Vends lecteur de disquettes AMSTRAD DD1 état 
neuf, 1 an : 1400 F port compris. Carluer PLOU- 
NEUEZEL, 29270 CARHAIX, tél. 98.93.15.99. 


Vends AMSTRAD CPC 464 + nombreux périphé- 
riques. Pour plus de détails, téléphoner au 
42.27.69.22, demander Yannis. 


Achète pour CPC 464 logiciel de Basket (One on 
One), prix à débattre. Tél. 31.94.46.59 arpès 19h. 


Vends 6128 mono + 200 logiciels DBase, Multi- 
plan, Datamat, Textomat, etc. + 150 jeux + joy- 
stick : 4900 F. Imprimante DMP 2000 neuve : 
1900 F. Tél. 69.21.02.85. 


CPC 6128 DMP 2000 à votre service pour listings, 
étiquettes, etc. M. LECLERE, La Provence C12, 46 
av. St. Barnabé, 13012 MARSEILLE. 


Vends ATMOS 48 K + Jasmin 1 + Ampli Bus + 
modem Digitelec + joystick avec interface + 20 
disquettes, livres, revues 3500 F. Tél. 
33.49.35.59 HB. 
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: ANNONCEZ-VOUS ! 


les petites annonces et les messages 
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Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan, 35170 BRUZ 


Vends CPC 664 coul. + 150 jeux et util. + hous- 
ses + cordon K7 + 23 mag. et 5 livres pour AMS- 
TRAD : 4400 F. Tél. (1) 64.26.23.80. 


Vends AMSTRAD CPC 464 mono : 2400 F. 
DMP1 : 1100 F. Synthé DK'Tronics : 250 F. Sou- 
ris AMX : 400 F. 9 jeux : 300 F ou le tout pour 
4000 F. Tél. 60.28.24.71 après 18h. 


AMSTRAD CPC 464 cherche correspondants pour 
échanges de logiciels. Frank VILLEDIEU, BP 2229, 
PAPEETE, TAHITI. 


Vends AMSTRAD CPC 664, écran mono, lecteur 
disquette + imprimante DMP 1, très peu servi. Tél. 
37.34.83.34. 


Vends EXL 100 + moniteur N/V + Exelmémoire 
16K + livre + jeux, sous garantie : 2200 F envi- 
ron. JeaN PAILLER, tél. 98.85.07.38 le WE. 


Vends 6128 couleur ‘+ lect. 5’ Vortex + souris 
+ modem DGT 2000 + interf. Mercitel + lect. K7 
+ nbx programmes + doc + disq 3P : 10 000 F. 
M. DRAIN, tél. 34.17.03.25. 


Vends CPC 6128 coul. + 150 jeu + 15 util. : 
5800 F. Drive 51/2 . 1000 F. R. SUIRE, tél. 
39.15.18.53 (bureau) ou 34.69.96.56 (domicile). 


Recherche listing programme Zen. Tél. 
57.58.14.12 à Thierry, heures de bureau. 


Vends 6128 coul. + 20 disquettes (80 logiciels) 
+ magnéto + manette + synthé français. CPC 
sous garantie, faire offre au 34.17.47.00. 


Vends CPC 464 couleur + jeux + joystick + 
livres : 3000 F. Tél. 34.16.56.80. 


Vends 2e lecteur 3’ pour CPC 6128/664 sous 
garantie + cordon : 950 F. 30 diquettes 3°‘ : 25 F 
chaque (cause achat IBM). Tél. 43.93.93.33 (soir). 


Vends console de jeu Mattel + 7 cassettes + ordi- 
nateur Mattel Intélévision (clavier QWERTY). Tél. 
94.86.31.74, demander Thomas QUEF. 


Recherche logiciels pour CPC 6128 et vends 
ORIC/ATMOS : 500 F. Maiani Giovanni, 52 av. 
Jean Mermoz, 57290 FAMECK. 

Vends cassette originale de Lorigraph (boîte origi- 
nale + mode d'emploi) : 130 F. Tél. 60.10.52.02. 
Demander Christophe. 

Vends logiciels éducatifs, jeux, utilitaires sur dis- 
que de 65 F à 150F. Tél. 76.65.02.22 après 18h. 


Vends 464 coul. + DD1 + 35 disquettes + joy : 
3700 F. Peux vendre ou échanger les programmes 
séparément. M. LAPIE,, 8 rue des Moussis, 04130 
VOLX. 


Achète revues CPC N° 1, 2, 3, 4. Robie Pors GOS- 
TAD, 22530 MUR DE BRETAGNE, tél. 96.28.51.25. 
Vends ordinateur AMSTRAD + logiciels neufs + 
synthé SSA1 + livres + revues, le tout : 2500 F. 
Tél. 42.25.02.94. M. DJAMAI. 


Vends CPC 464 couleur + DDIT + MP 1 + joy- 
stick + lightpen + nbx logiciels + livres. Poss. 
paiement PX 5000 F. M. LIOT, tél. 56.47.60.42 
HR. 


Recherche personnes pour échanges d'idées AMS- 
TRAD, Minitel, serveurs, échange logiciels. Didier, 
tél. 35.73.93.20. 


Vends CPC 464 couleur + une centaine de logi- 
ciels du commerce + joy + revues + livres : 
4500 F. Adrien LAPLAN, tél. 47.35.71.16. 


Vends CPC 664 coul. + ext. DK'Tronics 64 K + 
7 progiciels + magnéto + livres + jeux : 6500 F, 
valeur 10 000 F. Tél. 48.98.17.91. 


Vends bloc prises secteur : protège votre matériel 
sensible contre surtensions véhiculées par réseau 
EDF. Tél. 82.85.44.81. 


Vends CPC 6128 coul. (07/86) + DMP 2000 + 
Crafton + Tasword (neufs) + 10 bons jeux {Eden, 
Bombjack, etc.). Garantie 10 mois : 7000 F. Tél. 
69.21.67.98. 


Vends K7 Verbes Irr. Anglais + Allemand non 
commercialisée. M. DUBAU ‘’Le Débussy'’ D1, Rue 
E. Branly, 83400 HYERES, tél. 94.38.92.79. 


Vends CPC 6128 vert + DMP 1 + ad. péritel MP 
2 + dBASE Il + Multiplan (notices) + lecteur K7 
Philips + logiciels + 20 disques. Tél. 80.33.63.10. 


Vends AMSTRAD CPC 664 couleur (1 an) + mém. 
add. 64 K + 15 logiciels (jeu + ut.) : 4000 F. M. 
TARI (Toulon), tél. 94.48.74.03 après 19h. 


Vends AMSTRAD PCW 8256 + drive FD 2 + 
dBASE + Multiplan + CBasic + compilateur + 
FOD + H + Samm C + 3d Clock + 30 floppies 
+ livres. Tél. 32.35.50.67. 


Recherche CPC 664 avec options diverses, prix 
4500 F maxi selon options. Faire offres à Franck 
au 20.07.93.79. 


Vends CPC 464 (03.86) + crayon optique + livres 
+ quelques logiciels 3500 F. Franck au 
20.07.93.79. 


Achète ou échange jeu de dames. Tél. 
20.98.33.44 demander Thomas après 18h. Cher- 
che aussi disquettes. 


Cherche utilitaires pour 6128. Té. 43.04.45.60 
après 18h. 


Achète DD1 pour 464 complet. Tél. 32.46.92.16 
après 19h. 


Vends CPC 6128 vert + supp. écr. + péritel coul. 
+ 10 disquettes av. jeux et utilitaires + revues + 
joystick : 5000 F. Tél. (1) 60.28.65.68 après 18h. 


Vends 464 mono 1/86 : 2000 F. Lecteur disquette 
DDI 1 8/86 : 1800 F. Extension Vortex 512 Ko 
08.86 : 1000 F. 7 disquettes vierges : 200 F. Le 


Terminal informatique pro tbe (une console vidéo, 
alim. et deux claviers). Faire offre au 45.68.31.15 
après 18h. 


Vends ZX81 16K + mémoire permanente 16 K + 
imprimante + papier : 1900 F. J.M. PERRETTE, 
111 rue de Reuilly, 75012 Paris, tél. (1) 
43.07.70.51. 


Vends CPC 464 mono année 85 tbe + program- 
mes personnels (RSX graphiques, trait. texte, 
jeux) : 2200 F. Tél. 88.39.75.72. 


Vends CPC 464 mono + nbx logiciels +livres + 
péritel + revues : 3800 F. Philippe ROUXEL, 254 
rue du Polygone, 59500 DOUAI. 


Vends CPC 6128 coul. + imprimante DMP 2000 
+ Multiplan + dBASE Il + cordon magnéto + jeux 
+ 10 disquettes : 6000 F. Tél. 75.02.28.07. 


Vends AMSTRAD 664 avec moniteur coul. oct 85 : 
4000 F. Tél. 31.98.48.93. 


Cherche disquettes ou cassettes numéros CPC 1, 
2,3 et 4. Ecrire à Sandrine ORTET, 6 rue J. Renoir, 
84130 LE PONTET. 


Vends CPC 664 coul. : 3800 F + joystick + livres 
+ disquettes. Tél. 45.47.61.43 après 19h. 


Achète langage Cobol. M. JEGO, 16 rue Jean Fon- 
tenelle, 77210 AVON, tél. 60.72.67.73. 


Cherche contacts sur CPC pour échanges divers. 
Jacky VERNET, 139 rue de l'ouest, 75014 PARIS, 
tél. (1) 45.43.10.93. 


Vends VG5000 Philips + 2 manettes + interface 
+ 4 jeux + manuel + 2 livres programmes, valeur 
2500 F, vendu : 1700 F. Tél. 64.07.07.32 après 
18h. 


Vends CPC 464 coul. + joystick + lect. DDI 1 + 
DMP 2000 (86) + nbx logiciels + disquettes vier- 
ges. Le tout en tbe : 7500 F. Tél. 46.45.44.45 
après 20h Vanves. 


Vends CPC 464 coul. : 2800 F. Tél. 39.14.30.79 
après 19h. 


Echange moniteur mono pour 664 ou 6128 + nbx 
logiciels contre moniteur coul. Jean-Jacques BUR- 
LON, tél. 76.09.54.35. 


Vends CPC 6128 + DMP 2000 + souris + Word- 
star + Cherry Paint + Multiplan + nbx jeux : 
7800 F à débattre. Tél. 75.94.23.46. 


Vends AMSTRAD 464 vert + 100 logiciels + joy- 
stick + doc et lecteur DDI-1, tbe : 4000 F. Origi- 
naux K7 : 50F, disquette : 70 F. Tél. 47.41.50.65. 


Vends souris AMX : 400 F. K7 parfait état. M. 
PUIS, 4 rue de Coeuilly, 77340 PONTAULT, tél. 
60.28.41.89. 


Vends CPC 6128 mono, adaptateur Péritel MPF 2 
+ 40 diques : 3500 F. Drive 5‘* + 80 disques : 
1000 F. Tél. 39.13.36.60. 


Vends CPC 464 mono + lect. disquette cause dou- 
ble emploi : 3200 F. Souris AMX : 400 F. J.M. BRE- 
NOT, 92 Chatillon, tél. 46.55.40.82 (répondeur). 


Vends CPC 6128 couleur, lecteur, 5 pouces, sou- 
ris, joystick, importante logithèque et doc. Tél. au 
94.62.30.58, après 19 h, Gérard. 


Vends CPC 6128 couleur, garantie se termine fin 
novembre, t.b.ét., peu servi + housses 
+ joysticks + jeux : 3500 F. Urgent, R. PAL- 
MERO. Tél. 69.06.68.77. 


Vends log. originaux, K7 : 50 F, disq. : 90 F (ex. : 
Sram, Zombi). DELAPLACE, rés. des Jardins, route 
de Suze, 84500 BOLLENE. T. 90.40.17.05. 


Vends DMP 2000 + cordon + manu. français (ss 
garantie) + Amsword + log., très peu servi : 
1900 F. François KAPFER, 10 rte du Bruissin, 
69340 FRANCHEVILLE. 


Vends CPC 464 couleur + drive DD1 : 4000 F. 
Tél. 69.00.75.46, après 19h. 


Amstrad CPC 464 + lect. disq. DD1 + impr. 
DMP1 + logiciels + livres, val. : 9000 F, vendu : 
4500 F. Tél. 45.61.40.52. 


Vends 6128 (2-86) : 3000 F + bible + revues 
+ nb. logiciels + multiplan et doc. + quick-shot 
IV: 600 F. Cédric MALEMPRE. Ap. 17h, tél. 
37.23.03.88. 


Vends CPC 464 mono + adap. péritel MP1 
+ joyst. + logic. + doc. : 2000 F. Drive DD1 : 
1500 F. Tél. 88.29.22.92, soir ou 88.32.99.44, 
HB. 


Vends synthé vocal DKTRONIK + doc. Tél. 16 (1) 
47.02.86.04, après 16h. 


Stop ! Vends CPC 464 couleur (neuf) + 110 logi- 
ciels + joys. + livres + revues : 3500 F val. réelle 
1300 F. Tél. 64.99.78.36. 


Vends logiciels ‘‘DATAMAT"' et (ou) ‘’CALCU- 
MAT" pour 6128. M. PARAT. 39.52.28.09, cause 
double emploi. 


113 


ATTENTION, N° 14 EPUISE REPORT 


CPC Revue des Utilisateurs d'Amstrad/Schneider 18F 
Attention : votre abonnement débutera avec le 
numéro suivant le mois d'envoi de votre chèque. 8, 9,10,11, 12,13, 15, 16, 1719F 


0 7 25F 
[1 Hors Série n° 1 avec cassette 42F 
[1 Hors Série n° 2 sans cassette 6F 


[] Abonnement 1 an à 11 numéros 180 F 
[ Abonnement 6 numéros 104 F 
[ Abonnement d'essai 55 F 
CO] Supplément pour tarif avion 120 F Entourez le (ou les) numéro(s) commandé(s). 


Les abonnés recevront désormais GRATUITEMENT nos numé- 


ros Hors-Série. 
: ; © Apprenez l'électronique 
1 cassette représente 1 numéro sur AMSTRAD 95 F 


[1 abonné 45 F Q Disquette 
[1 non abonné 55F L'Univers du PCW 150 F ___ 


[l abonnement cassettes (11 n°) 450 F O Les imprimantes 
Michel ARCHAMBAULT 95 F 


O 1 exemplaire AMSTAR n° 9F ___ 


1 disquette contient deux numéros 


consécutifs de CPC © Mieux programmer sur AMSTRAD 
Ol abonné 110F Michel ARCHAMBAULT 85 F 


Eu abonné 140 F [ Communiquez avec AMSTRAD 
D. BONOMO - FE. DUTERTRE 90 F 


© Jouez avec AMSTRAD 


Je commande les cassettes n° 


[1 abonnement disquettes (6) 600 F 


Je commande les disquettes n° Kerloch 48 F 


© Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 85 F 


O L'Univers des PCW 
Patrick LEON 119F 


Pour conserver vos revues intactes. Q Cassette 
[ abonné 58 F Communiquez avec AMSTRAD 190 F 
[ non abonné 74F Ü Disquette 

Communiquez avec AMSTRAD 250 F 


TOTAL PORT : 10 % TOTAL GENERAL 


Adresse 


Code Postal 


Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à . 
Editions SORACOM La Haie de Pan - 35170 BRUZ. 


OUR) PCW 8256-8512 


DESCRIPTIF 


CARTE D'IDENTITE 


Mémorise la “carte d'identité” de l'entreprise 
(Nom, Raison Sociale, Date de création, etc). 


LES TAUX 


Les taux de cotisations patronales et salariales 
Sont fournis suivant la dernière législation et 
sont entièrement modifiables. 


LES UTILITAIRES 
1. GESTION DU FICHIER PERSONNEL 


Les informations concernant chaque salarié 
sont mémorisées sur une fiche signalétique 
unique. C/PAYE peut gérer jusqu'à 27 salariés. 


PR 0 G G | E L A R 0 B A S E 2. CARNET D'ADRESSES 


L'utilisateur dispose à tout moment d'un carnet 
d'adresses utiles à l'établissement de la fiche 


de paye et des déclarations aux organismes 
sociaux. 


LE BULLETIN DE PAYE 
1. LE BULLETIN DE PAYE 


Il permet création, édition, impression et 
suppression du bulletin de paye. Les bulletins 
sont modifiables à tout moment, donnant 

à C/PAYE la faculté de s'adapter à tout type 
d'entreprise. L'utilisateur peut donc refaire 
plusieurs fois le même bulletin de paye 

avant sa validation définitive 


2. COMPTABILITE 
C/PAYE édite automatiquement le livre de paye 
à n'importe quel moment au choix de l'utili- 
sateur. C/PAYE édite automatiquement un 
récapitulatif-entreprise indiquant l'imputation 
comptable des divers éléments pour le mois 
et en cumul. C/PAYE édite automatiquement 


un bordereau de virement des salaires. 
C/PAYE gère les congés payés. 
3. FISCALITE 


Une aide à l'établissement des déclarations 
fiscales est proposée, sous forme d'un état 
reprenant l'essentiel des éléments d’une DADS. 


C/PAYE protège l'utilisateur de toute erreur 
de manipulation en autorisant l'utilisation de 
certaines touches du clavier uniquement. 
C/PAYE tient compte des dernières modifi- 
cations législatives en particulier en ce qui 
concerne l'embauche des jeunes. 

Enfin, de par l’utilisation des menus déroulants, 
C/PAYE est utilisable par tous, après quelques 
minutes d'utilisation seulement. 


